Упорядочить матрицу

uses graphabc;
var a:array[1..10,1..10] of integer;
l,k,i,j:integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10);
 
for k:=1 to 100 do
for i:=1 to 10 do
for j:=1 to 10 do
if (a[i]<a[j]) then
begin
l:=a[i];
a[i]:=a[j];
a[j]:=l;
end;
 
for i:=1 to 10 do
for j:=1 to 10 do
textout(30*i,30*j,a[i,j]);
end.

uses graphabc;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,k,l:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10+random(90);
for i:=1 to n*n-1 do
for j:=i+1 to n*n do
if a[(i-1) div n+1,(i-1) mod n+1]>a[(j-1) div n+1,(j-1) mod n+1] then
 begin
   l:=a[(i-1) div n+1,(i-1) mod n+1];
   a[(i-1) div n+1,(i-1) mod n+1]:=a[(j-1) div n+1,(j-1) mod n+1];
   a[(j-1) div n+1,(j-1) mod n+1]:=l;
 end;
for i:=1 to n do
for j:=1 to n do
textout(30*i,30*j,inttostr(a[j,i]));
end.

//просматриваем матрицу как линейный массив размером n*n
for i:=1 to n*n-1 do//от 1 до предпоследнего
for j:=i+1 to n*n do //и то что впереди
//определяем номера строки((i-1) div n+1) и номер столбца((i-1) mod n+1)
//и сравниваем элементы
if a[(i-1) div n+1,(i-1) mod n+1]>a[(j-1) div n+1,(j-1) mod n+1] then
 begin  //если первой больше второго, то обмениваем
   l:=a[(i-1) div n+1,(i-1) mod n+1];
   a[(i-1) div n+1,(i-1) mod n+1]:=a[(j-1) div n+1,(j-1) mod n+1];
   a[(j-1) div n+1,(j-1) mod n+1]:=l;
 end;