Создайте массив, в котором n элементов. Упорядочить все его элементы по возрастанию

uses crt;
const n=20;
var x:array[1..n] of integer;
    i:integer;
procedure sort(l,r:integer); {lлевый конец масива,r-правый конец}
var
  i,j,x1,y1,m: integer;
begin
  i:=l;
  j:=r;
  m:=round ((l+r)/2);{средний элемент}
  x1:=x[m];
  repeat
    while x[i]<x1 do inc(i);{пока левый больше среднего, подвигоем левый край вправо }
    while x[j]>x1 do dec(j);{пока правый меньше среднего, подвигаем левый вправо}
    if i<=j then {если левый и правый срослись}
     begin
      y1:=x[i];
      x[i]:=x[j];{меняем левый и правый}
      x[j]:=y1;
      inc(i); {левый вправо}
      dec(j); {правый влево}
     end;
  until i>j;{конец одной перестановки}
  if l<j then sort(l,j);{рекурсивно сортируем}
  if i<r then sort(i,r);{или левую или правую части}
end;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
  begin
   x[i]:=random(100);
   write(x[i]:4);
  end;
writeln;
sort(1,n);
writeln('Массив после сортировки: ');
for i:=1 to n do
write(x[i]:4);
end.

Program BS; //Метод пузырька
 
Uses crt;
 
Var i,j,x,n:integer;
    a:array[0..50] of integer;
Begin
     writeln('Введи длину массива');
     read(n);
     writeln('Введи массив');
     for i:=1 to n do read(a[i]);
     for i:=2 to n do
     for j:=n downto i do
     if a[j-1]>a[j] then
     begin
          x:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=x
     end;
     writeln('Результат:');
     for i:=1 to n do
     write(a[i],' ')
End.

Program Shells;
 
Uses crt;
 
Const T=4;
 
h: array[1..4] of integer = (15,7,3,1);
 
var i,j,k,s,x,n,m:integer;
    a:array[-16..50] of integer;
Begin
     writeln('Введи длину массива');
     read(n);
     writeln('Введи массив');
 
     for i:=1 to n do read(a[i]);
     for m:=1 to t do
     begin
          k:=h[m];
          s:=-k;
          for i:=k+1 to n do
          begin
               x:=a[i];
               j:=i-k;
               if s=0 then s:=-k;
               inc(s);
               a[s]:=x;
               while x<a[j] do
               begin
                    a[j+k]:=a[j];
                    j:=j-k
               end;
               a[j+k]:=x;
          end;
    end;
 
    writeln('Результат:');
    for i:=1 to n do
    write(a[i],' ')
End.