меньшее из 2-ух чисел (a,b) уменьшите на 4

// меньшее из двух чисел (a,b) уменьшите на 4

Var x,y   : real;
begin
  writeln ('Введите 1-ое число');
  readln (x);
  writeln ('Введите 2-ое число');
  readln (y);
  while x=y do
    begin
      writeln ('Вы ввели равные числа. По условиям задачки числа не обязаны быть одинаковы. Пробуйте еще раз');
      writeln ('Введите 1-ое число');
      readln (x);
      writeln ('Введите 2-ое число');
      readln (y);
    end;
  if xlt;y then x:=x-4
           else y:=y-4;
 writeln ('1-ое число ',x,' Второе число ',y);       
end.