Найти количество отрицательных элементов двумерного массива, расположенных ниже главной диагонали

procedure task3;
var A: array[1..50,1..50] of integer;
    i,j,t,n:integer;
    s:string;
    count:integer;
begin
write('razmer matritsy "N"= ');  
readln(n);
for i:=1 to n do
for j:=1 to n do A[i,j]:=-26+random(53);
 
writeln('Ishodnaya matritsa:');   
writeln(f,'Ishodnaya matritsa:');
for i:=1 to n do begin writeln;
for j:=1 to n do write(A[i,j]:8);  end;
{zapis' ishodnogo massiva v fail}
for i:=1 to n do
    begin
     writeln(f);
     for j:=1 to n do
         begin
          str(A[i,j],s);
          for t:=1 to 8-length(s) do write(f,' ');
          write(f,A[i,j]);
         end;
    end;
{---konets zapisi ishodnogo massiva v fail}
count:=0;
for i:=1 to n do
for j:=1 to n do
if (A[i,j]<0) and (i>j) then inc(count);
 
writeln(f);writeln;
writeln(f);writeln;
writeln('Kolichestvo: ',count);
writeln(f,'Kolichestvo: ',count);
 
writeln;writeln('Dannye uspeshno zapisany v fail...');
close(f);
readln;menu;
end;

const
  Max_Value = 50;
var
  Matr: Array[1..Max_Value, 1..Max_Value] of Integer;
  Count, n, i, j: Byte;
begin
  Randomize;
  Count:=1;
  repeat
    write('N: ');
    readln(n);
  until (n in [1..Max_Value]);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(20)-10;
      write(Matr[i, j]:4);
      if (j > i) and (Matr[i, j] < 0) then
        Inc(Count);
    end;
    writeln;
  end;
  writeln('Кол-во отрицательных элементов, ниже главной диагонали: ', Count);
end.