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

Если я правильно понял, то:
program x;
var x,y,a;
begin
readln(x,y);
if x < y then
begin
 a:=x;
 x:=y;
 y:=a;
end;
writeln(x,y);
end.