[Shalinskij]

procedure swap(var a,b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b;
{какой-то странный алгоритм }
end;

Мож так как то