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

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.