Количество чисел, меньших заданного H и лежащих ниже главной диагонали матрицы

Program matrica;
    var
N, i, j, p:integer;
a: array[1..10, 1..10] of integer;
begin
writeln ('Введите количество строк и столбцов');
readln (N);
writeln ('Введите значения элементов матрицы');
for j:=1 to N do
    for i:=1to N do
begin
write ('Введите A(', I, ',', Y,')=');
readln (A[i,j])
end;
for i:=1to N do
begin
p:=a[i,i]
a[i,i]:=a[i, N-i+1];
a[i, N-i+1]:=p
end;
for j:=1 to N do
begin
for i:=1 to N do
write (A[i,j]:5);
writeln
end;
readln
end.

program matrica;
 
var
  N, i, j, p: integer;
  a: array[1..10, 1..10] of integer;
 
begin
  writeln('Введите количество строк и столбцов');
  readln(N);
  writeln('Введите значения элементов матрицы');
  for i := 1 to N do
    for j := 1 to N do
    begin
      write('Введите A(', I, ',', J, ')=');
      readln(A[i, j])
    end;
  for i := 1 to N do
  begin
    p := a[i, i];
    a[i, i] := a[i, N - i + 1];
    a[i, N - i + 1] := p
  end;
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(A[i, j]:5);
    writeln
  end;
  readln
end.

  for i:=2 to n do
    for j:=1 to i-1 do