Расположить в порядке возрастания положительные элементы правого верхнего треугольника матрицы

var a:array[0..9, 0..9] of integer;
    i,j,k,x,n:integer;
begin
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
randomize;
writeln('Исходная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=-20+random(41);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=0 to n*n-2 do//от 1 до предпоследнего элемента
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]>0)and(a[j div n,j mod n]>0)
//и первый больше второго
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;
writeln('Отсортированная матрица:');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
end.

var a:array[1..10,1..10] of integer;
    b:array[1..45] of integer;
    n,m,i,j,x:integer;
begin
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-20+random(41);
    write(a[i,j]:4);
   end;
  writeln;
 end;
//создадим массив элементов правого верхнего треугольника
m:=0;
for i:=1 to n do
for j:=i to n do
 begin
  inc(m);
  b[m]:=a[i,j];
 end;
//отсортируем его по условию
for i:=1 to m-1 do//от 1 до предпоследнего элемента
for j:=i+1 to m do//все что впереди
//если оба элемента положительные  и первый больше второго
if(b[i]>0)and(b[j]>0)and(b[i]>b[j]) then
 begin
 //меням их местами
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
//вставим его в матрицу
m:=0;
for i:=1 to n do
for j:=i to n do
 begin
  inc(m);
  a[i,j]:=b[m];
 end;
writeln('Отсортированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.