dada una lista de n numeros se pide ordenar la lista de manera ascendente

program logicander;

Uses WinCrt;
const
     N=5;
type
    A=  array [1..N] of integer;
var
   NUM : A;
   I, J, C : integer;
begin

     for I:= 1 to N do
         ReadLn (NUM[I]);
     for I:= 1 to N-1 do
         for J:= I+1 to N do
         if (NUM[I]>NUM[J]) then
         begin
              C:= NUM[I];
              NUM[I]:= NUM[J];
              NUM[J]:= C;
         end;

     writeln ('');
     writeln ('-----------------');
     writeln ('');

     for I:= 1 to N do
         WriteLn (NUM[I]);

end.