Pascal/Turbo Pascal - intercambio

en este mini programa intecambio querria que se intercambiaran los valores de las variables a y b, con la condicion de no cambiar esta parte del programa que os doy:

var a, b:integer;
begin
write('Introduce un valor para a: ');
readln(a)
write('introduce un valor para b: ');
readln(b)

-------------poner lo necsario para que a y b se intercambien susvalores------------------------

writeln('Ahora la variable a vale',a,' y b vale',b)

Lo más fácil es utilizar una variable intermedia c: sería lo siguiente:

var
a, b:integer;
c: integer;
begin
write('Introduce un valor para a: ');
readln(a)
write('introduce un valor para b: ');
readln(b)
c:=b;
b:=a;
a:=c;
//En este punto a ya vale lo que valía b y b vale lo que valía a.
writeln('Ahora la variable a vale',a,' y b vale',b)
end.

Perfectoo!!! Me ha servidoo, gracias!!!