Обмен местами

[Sweet-_-Orange]

Задано описание данных:
var А, В: real;
Оформить функцию по имени Swap, которая принимает две переменные А, В и меняет их значения местами (А = В, а В = А). В качестве дополнительной локальной переменной использовать Tmp. Разработать работающую программу

  var A,B,TMP:real;
 Function Swap(A:real;B:real):real;
var st:string;
begin
A:=B;
B:=A;
end;
begin
writeln('VVedite A');
readln(A);
writeln('VVedite B');
readln(B);
TMP:Swap(A,B:real);
writeln;
readln;
end.

[phasha]

 Function Swap(A:real;B:real):real;
var st:string; TrSt:real;
begin

trst:=a;
a:=b;
b:=trst;
end;

метод третьего стакана для функции
хотя для такого конкретного задания логичнее было бы сделать процедуру а не функцию
можно и так.

procedure obmen(a,b:real);
var trst:real;
begin
trst:=a;
a:=b;
b:=trst;
 end;
var a,b:=real;
begin
writeln('VVedite A');
readln(A);
writeln('VVedite B');
readln(B);
obmen(a,b);
writeln('a=',a:5:5,'  b=',b:5:5);
readln;
end.

[IT-man]

obmen(a,b:real)

не поменяет

procedure Swap(var A,B:real);
begin
A:=B+A;
B:=A-B;
A:=A-B;
end;

[Sweet-_-Orange]

не меняет(

[phasha]

procedure Swap(var A,B:real);
begin
A:=B+A;
B:=A-B;
A:=A-B;
end;

хм...эта тоже не меняет

procedure obmen(var a,b:real);
var trst:real;
begin
trst:=a;
a:=b;
b:=trst;
 end;
var a,b:real;
begin
writeln('VVedite A');
readln(A);
writeln('VVedite B');
readln(B);
obmen(a,b);
writeln('a=',a:5:5,'  b=',b:5:5);
readln;
end.

теперь меняет.забыл задать вар в процедуре XD

[Sweet-_-Orange]

Благодарю!