Pascal/Turbo Pascal - Ordenar tres numeros de manera ascendente. Ayuda!

PROGRAM orden_ascendente;

uses crt;

var n1,n2,n3:integer;

begin

clrscr;

writeln('escriba el primer numero: '); readln(n1);

writeln('escriba segundo numero: '); readln(n2);

writeln('escriba tercer numero: ');readln(n3);

                 if (n1<n2) and (n2<n3)

                 then

                 writeln('El orden ascendiente es el siguiente: ',n1:n2:n3)

                 else

                 if(n2<n1) and (n1<n3)

                 then

                 writeln('El orden ascendiente es el siguiente: ',n1:n2:n3)

                 else

                 if(n3<n2) and (n2<n1)

                 then

                 writeln('El orden ascendiente es el siguiente: ',n1:n2:n3);

readkey;

end.

{Mira esta corrección }

PROGRAM orden_ascendente;

uses crt;

var p,n1,n2,n3:integer;

begin

clrscr;

writeln('escriba el primer numero: '); readln(n1);

writeln('escriba segundo numero: '); readln(n2);

writeln('escriba tercer numero: ');readln(n3);

 if n1 > n2 then

 begin

 p := n1;

 n1 := n2;

 n2 := p;

 end;

 if n1 > n3 then

 begin

   p := n1;

   n1 := n3;

   n3 := p;

 end;

 if n2 > n3 then

 begin

    p := n2;

    n2 := n3;

    n3 := p;

 end;

  writeln(n1,'  ',n2,'  ',n3);

readkey;

end.

PROGRAM orden_ascendente;

uses crt;

var p,n1,n2,n3:integer;

begin

clrscr;

writeln('escriba el primer numero: '); readln(n1);

writeln('escriba segundo numero: '); readln(n2);

writeln('escriba tercer numero: ');readln(n3);

 if n1 > n2 then

 begin

 p := n1;

 n1 := n2; rebiso si n1 es mallor que n2 si loes los cambio

 n2 := p;

 end;

 if n1 > n3 then

 begin

   p := n1;  rebiso si n1 es mallor que n3 si loes los cambio

   n1 := n3;

   n3 := p;

 end;

 if n2 > n3 then

 begin

    p := n2;

    n2 := n3;  rebiso si n2 es mallor que n3 si loes los                cambio

    n3 := p;

 end;

  writeln(n1,'  ',n2,'  ',n3);

readkey;

end.

Mira alser variables sueltas los pongo detal manera que cada una tenga el numero que corresponde n1 el mas pequeño

n2 el siguiente en valor y n3 el mallor

si esto estuviera en un array no aria falta nadamas que

pasar una vez no tres.

numeros : array[1..3] of integer;

for i := 1 to 3 do

  for t := 3 downto i + 1 do

  if numeros[i] > numeros[t] then

   begin

   temp := numeros[t];

   numeros[t] := numeros[i];

   numeros[i] := temp;

   end;

  el resultado seria

  numeros[1 = seria el menor]

  numeros[2 = seria el mediano]

  numeros[3 = seria el mallor]

espero esto te aclare tu duda.