Ввести с клавиатуры два числа, меньшее из них заменить частным этих чисел, а большее разностью. Выдать измененные числа на экран — Pascal(Паскаль)

var x,y: real;
 
begin
 writeln('Число 1: ');
 readln(x);
 writeln('Число 2: ');
 readln(y);
 if x < y then
  begin
    x := x/y;
    y := x-y
  end
 else
  begin
    y := x/y;
    x := x-y
  end;
 
  writeln;
  writeln(x);
  writeln(y);
  readln
 
end.