Pascal/Turbo Pascal - consulta variable auxiliar

Mi profesora nos dio este ejercicio para hacer.

[B]Escribir un programa en Pascal que lea dos números desde el
teclado y si el primero es mayor que el segundo intercambie sus valores.[/B]

PROGRAM EJER;
USES CRT;

VAR num1,num2:INTEGER;
BEGIN
ClrScr;

WRITELN ('Escriba dos numeros: ');
READLN (num1); WRITE (''); READLN (num2);
WRITELN ('');

IF num1 > num2 THEN
BEGIN
WRITE(num2,' ',num1,'. El primer numero introducido
es mayor.');
WRITE(' Se cambia el orden.');
ELSE
WRITE(num1,' ',num2,'. El segundo numero introducido es
mayor.');
WRITE(' No se cambia el orden.');
END;
END.

Pero me dicen que hay que crear una variable auxiliar, asi no se pierde ningun n° al intercambiarlo. Como habria que hacer el ejercicio en este caso?
Hay alguna forma de hacerlo mas corto?
sldos

Lau

Hay tres casos posibles.
- Que Num1 sea mayor que Num2.
- Que Num2 sea mayor que Num1.
- Que Num1 y Num2 sean iguales.
En tu programa no consideras el tercer caso.

Para intercambiar valores sin que se pierda ninguno pues usa una variable auxiliar.

var
Num1, Num2, Aux: Integer;
begin
...
Aux:=Num1;
Num1:=Num2;
Num2:=Aux;
...
end.

Easy, right?.

Hay tres casos posibles.
- Que Num1 sea mayor que Num2.
- Que Num2 sea mayor que Num1.
- Que Num1 y Num2 sean iguales.
En tu programa no consideras el tercer caso.

Para intercambiar valores sin que se pierda ninguno pues usa una variable auxiliar.

var
Num1, Num2, Aux: Integer;
begin
...
Aux:=Num1;
Num1:=Num2;
Num2:=Aux;
...
end.

Easy, right?.