Вычислить количества нулевых элементов матрицы, лежащих выше, ниже и на главной диагонали — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  i, j, n: integer;
  diag, vise, nije: integer;

  { ------------------------------------------- }
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('Ishodnyi:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;
  { ****************************************** }
  diag := 0;
  vise := 0;
  nije := 0;

  for i := 1 to n do
    for j := 1 to n do
    begin
      if (i = j) and (A[i, j] = 0) then
        inc(diag);
      if (i < j) and (A[i, j] = 0) then
        inc(vise);
      if (i > j) and (A[i, j] = 0) then
        inc(nije);
    end;

  { ****************************************** }
  writeln;
  writeln;
  writeln('Rezulitaty:');

  writeln('Kol-vo VISE glavnoi diagonali: ', vise:5);
  writeln('Kol-vo NA glavnoi diagonali: ', diag:7);
  writeln('Kol-vo NIJE glavnoi diagonali: ', nije:5);

  readln;

end.