Дана матрица А состоящая из n строк и n столбцов. найти среднее арифметическое элементов тех строк матрицы, в которых отрицателен элемент главной диагонали — Pascal(Паскаль)

program fg;

var
  A: array [1 .. 100, 1 .. 100] of integer;
  n, i, j: integer;

function sr_ar(i: integer): real;
var
  j, sum: integer;
begin
  sum := 0;
  for j := 1 to n do
    sum := sum + A[i, j];
  sr_ar := sum / n;
end;

begin
  write('N= ');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;
  writeln('Vot vvedennaia vami Matrica "A":');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end;

  writeln;
  writeln;
  for i := 1 to n do
    for j := 1 to n do
      if (i = j) and (A[i, j] < 0) then
        writeln('SR.AR. ', i, ' stroki= ', sr_ar(i):0:2);

  readln;

end.