Даны два числа .Если они не равны ,то найти их сумму и произведение . Если произведение больше суммы ,то определить на сколько. Числа ввести случайным образом на интервале заданном клавиатуры.Помогите решить пожалуйста!

program ran; label main; var x, y, min, max, s, p, d: integer; begin randomize; writeln('ВВОД ПРОМЕЖУТКА'); write('от: '); readln(min); write('до: '); readln(max); main: x := min + random(max - min + 1); y := min + random(max - min + 1); if not(x = y) then begin s := x + y; writeln('сумма: ', s); p := x * y; writeln('произведение: ', p); if p > s then begin d := p - s; writeln('произведение больше суммы на ', d); end; end else begin writeln('случайные числа равны, повтор генерации...'); goto main; end; end.