Pascal/Turbo Pascal - Programa de tipo de variables

program intercambio;

uses crt;

var

   x,y,aux:integer;

begin

     writeln('Introduzca un numero');

     readln(x);

     writeln('Introduzca otro numero');

     readln(y);

     aux:=y;

     y:=x;

     x:=aux;

     writeln('El primer numero es : ',y,' El segundo numero era : ',x);

     writeln('Intercambiando variables ahora el primer numero es : ',aux,' y el segundo : ',y);

     readkey

end.