Sắp xếp mảng 2 chiều tăng dần trái - phải, trên - dưới

uses crt;
var
  A: array[1..20,1..20] of integer;
  B: array[1..100] of integer;
  m,n,i,j,k,tg: integer;
begin
  clrscr;
  {Nhap}
  write('So hang n= ');
  readln(n);
  write('So cot  m= ');
  readln(m);
  k:=1;
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('A[' ,i, ',' ,j, ']= ');
        readln(A[i,j]);
        B[k] := A[i,j]; {Dua mang 2 chieu ve mang 1 chieu}
        k:=k+1;
     end;
  k:=k-1;
  {Sap xep}
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if B[i] > B[j] then
        begin
          tg:=B[i];
          B[i]:=B[j];
          B[j]:=tg;
        end;
  k:=1;
  for i:=1 to n do
    for j:=1 to m do
      begin
        A[i,j] := B[k];
        k:=k+1;
      end;
  {Xuat}
  writeln('Ket qua:');
  for i:=1 to n do
    begin
      for j:=1 to m do write(a[i,j]:3);
      writeln('');
    end;
  readln;
end.