Pascal/Turbo Pascal - ayuda turbo pascal

{Algo así}

 program resta;

 uses

    crt;

  var

  num, num1, num2 : integer;

  begin

     write('Entre El Num. 1 : ');

     readln(num1);

     write('Entre El Num. 2 : ');

     readln(num2);

     writeln;

     if num1 < num2 then

     begin

     num := num2;

     num2 := num1;

     num1 := num;

     end;

     writeln('El Resultado Es : ',num1 - num2);

     writeln;

     writeln('Pulse [Enter]´);

     readln;

   end.