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

var x,y,max,min: integer;beginreadln(x,y);max:=0; min:=0;if x>y then beginmax:=x div y;min:=x mod y;writeln(max,' ', min);end;if x<y then beginmin:=x div y;max:=x mod y;writeln(max,' ', min);end;end.