Составить программу, которая меняет местами значения вещественных переменных a и b без использования дополнительной переменной. Решить задачу, используя процедуры и функции — Pascal(Паскаль)

var x,y:real;
 
procedure change(var x,y:real);
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;
 
begin
writeln('Введите X,Y');
readln(x,y);
writeln('До обмена: x=',x:0:2,' y=',y:0:2);
change(x,y);
writeln('После обмена: x=',x:0:2,' y=',y:0:2);
readln;
end.

procedure change(var x,y:integer);
begin
x:=x xor y;
y:=x xor y;
x:=x xor y;
end;