Отсортировать элементы выше главной диагонали матрицы по возрастанию, а ниже главной диагонали по убыванию

const n=6;
//процедура обмена двух элементов
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..n-1,0..n-1] of integer;
    i,j,k:byte;
    x:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=-10+random(21);
    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 ((i mod n>i div n)and(j mod n>j div n)and(a[i div n,i mod n]>a[j div n,j mod n]))
//ниже главной по убыванию
or ((i mod n<i div n)and(j mod n<j div n)and(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.

const n=6;
var a:array[0..n-1,0..n-1] of integer;
    i,j,k:byte;
    x:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=-10+random(21);
    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 ((i mod n>i div n)and(j mod n>j div n)and(a[i div n,i mod n]>a[j div n,j mod n]))
//ниже главной по убыванию
or ((i mod n<i div n)and(j mod n<j div n)and(a[i div n,i mod n]<a[j div n,j mod n]))then
 begin
  x:=a[i div n,i mod n];
  a[i div n,i mod n]:=a[j div n,j mod n];
  a[j div n,j mod n]:=x;
 end;
writeln('Отсортированная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
end.

for i:=1 to n-1 do
for j:=i+1 to n do
if a[[i,i]>a[j,j] then
 begin
  x:=a[i,i];
  a[i,i]:=a[j,j];
  a[j,j]:=x;
 end;