Ввести с клавиатуры два числа x, y. большее число заменить на частное, x на y. меньшее число заменить на остаток от деления х на у

Program z1;
var  x, y: integer; 
max, min: real;
begin
readln(x, y);
max := 0; min := 0;
if x > y then begin
max := x / y;min := x mod y;
writeln(max, ' ', min);
end;
if x < y then begin
min := x / y;max := x mod y;
writeln(max, ' ', min);
end;
end.