Упорядочить массив в порядке возрастания и напечатать входной и исходный массив.

[TheVenny]

Вот условие:
Задан одноизмеримый массив с 10 чисел. Упорядочить массив в порядке возрастания и напечатать входной и исходный массив.

Программа ниже не хочет сортировать массив в порядке возрастания, исправьте пожалуйста ошибку.

program four;
uses crt;
var
   a:array[1..10] of integer;
   i,prom,j,n,k:integer;
begin
     clrscr;
     writeln('vvedit 10 chisel massiva : ');
     for i:=1 to 10 do
     read(a[i]);
     writeln('massiv a do perestanovlennia : ');
     i:=1;
     while i<=10 do
           begin
           k:=1;
           while (k<=5) and (i<=10) do
                 begin
                 write(a[i]:5);
                 i:=i+1;
                 k:=k+1;
                 end;
           writeln;
           end;

       begin
       FOR i:=1 TO n-1 DO
       FOR j:=1 TO n DO
       if a[i]<a[j] then
          begin
          prom:=a[i];
          a[i]:=a[j];
          a[j]:=prom;
          end;
       end;
      writeln('massiv posle perestanovki : ');
      for i:=1 to 10 do
      write(a[i],' ');
      readln;
      readln;
end.

[Cannibal]

       begin
       FOR i:=1 TO n-1 DO
       FOR j:=1 TO n-i DO
       if a[i]<a[j] then
          begin
          prom:=a[i];
          a[i]:=a[j];
          a[j]:=prom;
          end;

[VVM]

исправте ошыбку

Испраляю:
"исправте ошибку"

[alex_fcsm]

Сообщение от TheVenny

Вот условие:
Задан одноизмеримый массив с 10 чисел. Упорядочить массив в порядке возрастания и напечатать входной и исходный массив.

Программа ниже не хочет сортировать массив в порядке возрастания, исправьте пожалуйста ошибку.

       FOR i:=1 TO n-1 DO
       FOR j:=1 TO n DO
       if a[i]<a[j] then
          begin
          prom:=a[i];
          a[i]:=a[j];
          a[j]:=prom;
          end;

n:=10;
   for i:=2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
        begin
          prom:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=prom;
        end;