Очень хороший метод нашёлся в просторах Сети:
Код:
var
x, y: byte;
begin
x:=$99; // bin 10011001
y:=$4B; // bin 01001011
x:=x xor y; // 11010010
y:=y xor x; // 10011001
x:=x xor y; // 01001011
end;
А теперь вопрос на логику - как "свапнуть" три значения?