Дана матрица. Упорядочить по возрастанию ненулевые элементы ее нижней половины

program z1;
 
var
i,j,k,t : integer;
mass : array [1..5,1..5] of integer;
mas : array [1..9] of integer;
begin
k := 0;
 
/////////////////////////////////////////
writeln ('Матрица');
for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      begin
        mass[i,j] := random (20)-10;
        write (mass[i,j]:6);
      end;
     writeln;
   end; 
/////////////////////////////////////////сортировка   
   
    for t := 1 to 4 do
    for i := 1 to 5 do
    for j := 1 to 4 do  
if (i>j) and (mass[i,j]<>0) and (mass[i,j]>mass[i,j+1]) then
  begin
    k := mass[i,j];
    mass[i,j] := mass[i,j+1];
    mass[i,j+1] := k;  
  end;
  
///////////////////////////////////////////  
writeln ('Отсортированная матрица');  
for i := 1 to 5 do
begin
  for j := 1 to 5 do
    begin
      write (mass[i,j]:6);
    end;
  writeln;
end;  
end.

const n=7;
var a:array[0..n-1,0..n-1] of integer; //для удобства определения индекса элемента
    i,j,t,s,k,m,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(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
k:=n*n-1;//количество элементов
for i:=0 to k-1 do
for j:=i+1 to k 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]) 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]:3);
  writeln;
 end;
end.