Сортировка таблицы

const N = 20;
 
Var a:array[0..N] of integer;
    i:integer;
 
procedure NMSort(var A: array of Integer);
var
  ll, mm, rr, SeriesCnt: Integer;
  B: array[0..N] of Integer;
 
  procedure Merge(var c, d: array of Integer; l, m, r: Integer);
  var
    i, j, k: Integer;
  begin
    i := l;
    j := m;
    k := l;
    while (i < m) and (j <= r) do
      if c[i] <= c[j] then begin
    d[k] := c[i];
    Inc(k);
    Inc(i);
      end
      else begin
    d[k] := c[j];
    Inc(k);
    Inc(j);
      end;
    while i < m do begin
      d[k] := c[i];
      Inc(k);
      Inc(i);
    end;
    while k <= r do begin
      d[k] := c[j];
      Inc(k);
      Inc(j);
    end;
  end;
 
begin
  repeat
    SeriesCnt := 0;
    ll := 0;
    repeat
      mm := ll + 1;
      while (mm < N) and (A[mm - 1] <= A[mm]) do
    Inc(mm);
      rr := mm + 1;
      while (rr < N) and (A[rr - 1] <= A[rr]) do
    Inc(rr);
      Inc(SeriesCnt);
      Merge(A, B, ll, mm, rr - 1);
      ll := rr;
    until ll >= N;
    Move(B[0], A[0], N * SizeOf(Integer));
  until SeriesCnt = 1;
end;
 
Begin
for i:=0 to N-1 do
    read(a[i]);
 
NMSort(a);
 
for i:=0 to N-1 do
    write(' ',a[i]);
 
writeln;
End.