Поменять ячейки местами a:=n, b:=m. Паскаль

program swap;
var a,b: integer;
begin
write(enter a );
readln(a);
write(enter b );
readln(b);
a:=a+b; // Сумма чисед а и b
b:=a-b; //Если из суммы a+b отнять b, то b станет одинаковым а. 
a:=a-b; //Если из суммы отнять новое значение b, то получим новое //значение а
writeln(a = , a);
writeln(b = , b)
end.