Составить программу вести с клавиатуры переменные х и у, поменять их значения местами, если x> y. на pascal

Var x, y:Integer;
Begin
readln(x);
readln(y);
if x>y then
writeln(x,' ', y);
if x<y then
writeln(y,' ', x);
End.