Đơn giản bạn sẽ dùng một biến trung gian c nha bạn để chúng ta có thể hoán đổi 2 giá trị, tức nếu không có trung gian thì khi gán trực tiếp giá trị sẽ bị mất
program hoandoi_ab;
var a,b,c:integer;
begin
readln(a,b);
writeln(a, ' ',b);
c:=a;
a:=b;
b:=c;
writeln(a, ' ',b);
readln
end.