Вычислить сумму и число положительных элементов матрицы A[N,N], находящихся над главной диагональю — Pascal(Паскаль)

program ff;

var
  A: array [1 .. 100, 1 .. 100] of integer; { переменная массива }
  i, j, n: integer; { переменные для циклов }
  sum, kol: integer; { переменные суммы и кол-ва }

begin
  write('Vvedite razmer massiva A');
  readln(n); { считываем размер массива }

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end; { считываем сам массив }

  write('Vot vvedennyy vami massiv A- ');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end; { выводим массив на экран }

  sum := 0;
  kol := 0; { сумме и кол-ву присваиваем изначально нули }

  for i := 1 to n do
    for j := 1 to n do { циклами проходим по матрице }
      if (A[i, j] > 0) and (i < j)
      then { прописываем условия положительные и выше диагонали }
      begin
        inc(kol);
        sum := sum + A[i, j];
      end; { сумму и кол-во соответственно увеличиваем }
  writeln;
  writeln('Summa= ', sum); { выводим на экран сумму }
  writeln('Kol-vo= ', kol); { выводим на экран кол-во }

  readln;

end.