Дан двумерный массив A N*N). Сформировать двумерный упорядоченныймассив (А 11<=A 12<= .<=A 23<=.<=A nn)

const nmax=10;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..nmax-1,0..nmax-1] of integer;
    n,i,j,k:byte;
    x:integer;
begin
repeat
randomize;
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=11+random(90);
    write(a[i,j]:4);
   end;
  writeln;
 end;
//сортировка массива по возрастанию
for i:=0 to n*n-2 do
for j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n]
then Swap(a[i div n,i mod n],a[j div n,j mod n]);
writeln('Отсортированный массив по возрастанию');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
 end.