Помогите пожалуйста: напишите программу, которая производит обмен значений переменных x и y, если x больше у. Пример входных данных Пример выходных данных x>>5 x=5 y>>6 y=6

Program zadanie;
Var x,y:real;
Begin
 Writeln(Введите значения x и y);
 Readln(x,y);
 If x>y Then
 begin
 x:=x+y;
 y:=x-y;
 x:=x-y;
 Writeln(x=,x);
 Writeln(y=,y);
 end;
End.