Массив не сортируется

var
  a: array[1..20,1..20] of integer;
  b: array[1..100] of integer;
  ba: array[1..10] of integer;
  n,m,i,j,hola: byte;
 
 procedure PSORT;
var
  i: integer;
 
  procedure Swap(var a,b:integer);
  var
    tmp: integer;
  begin
    tmp:=a;
    a:=b;
    b:=tmp;
  end;
 
  procedure Sort(Ns: integer);
  var
    i, tmp, pos, mid: integer;
  begin
    mid :=Ns div 2;
    for i := mid downto 1 do
    begin
      pos := i;
      while pos<=mid do
      begin
        tmp := pos*2;
        if tmp<Ns then
        begin
          if ba[tmp+1]<ba[tmp] then
            tmp := tmp+1;
          if ba[pos]>ba[tmp] then
          begin
            Swap(ba[pos], ba[tmp]);
            pos := tmp;
          end
          else
            pos := Ns;
        end
        else
          if ba[pos]>ba[tmp] then
          begin
            Swap(ba[pos], ba[tmp]);
            pos := Ns;
          end
          else
            pos := Ns;
        end;
      end;
    end;
begin
  for i:=N downto 2 do
  begin
    Sort(i);
    Swap(ba[1], ba[i]);
  end;
end;
 
begin
  writeln;
  writeln('Ââåä³òü ê³ëüê³ñòü ñòîâáö³â, ðÿäê³â: ');
  readln(n,m);
  writeln('Ïî÷àòêîâà ìàòðèöÿ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(a[i,j]);
      write(a[i,j]:4);
      b[m*(i-1)+j]:=a[i,j];
    end;
    writeln;
  end;
  writeln('Îòðèìàíèé îäíîì³ðíèé ìàññèâ:');
  for i:=1 to n*m do write(b[i],' ');
  for i:=1 to n*m do ba[i]:=b[i];
  psort;
  writeln('Îòðèìàíèé ñîðòîâàíèé ìàññèâ:');
  for i:=1 to n*m do write(ba[i],' ');
end.

procedure sort(n,m:integer;b:ar);
  var i,j,tmp,k:integer;
  begin
  writeln;
  k:=n*m;
       for i:=1 to k do begin
           for j:=1 to k do begin
               if (b[i]>b[j]) then begin
               tmp:=b[i];
               b[i]:=b[j];
               b[j]:=tmp;
               end;
           end;
       end;
       write('Îòñîðòèðîâàííûé ìàññèâ:');
       for i:=1 to k do
       write(b[i]:3);
  end;