В матрице посчитать количество строк и столбцов не содержащих отрицательных элементов - Pascal

Формулировка задачи:

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

Решение задачи: «В матрице посчитать количество строк и столбцов не содержащих отрицательных элементов»

Листинг программы

const m=5; n=5;
var
  a: array [1..m,1..n] of Integer;
  i, j, ni, nj: Integer;
begin
  ...
  {ni:=0; nj:=0;}
  for i:=1 to m do begin
    j:=n; while (j>0) and (a[i,j]>0) do Dec(j);
    Inc(ni,Ord(j=0));
  end;
  for j:=1 to n do begin
    i:=m; while (i>0) and (a[i,j]>0) do Dec(i);
    Inc(nj,Ord(i=0));
  end;
  WriteLn('Без отрицательных: строк ',ni,', столбцов ',nj);
end.

Объяснение кода листинга программы

Объявление и инициализация переменных:
- m - константа, содержащая значение 5
- n - константа, содержащая значение 5
- a - двумерный массив размером 5x5, содержащий целочисленные значения
- i, j, ni, nj - переменные целого типа
Инициализация переменных ni и nj значением 0
Цикл для проверки строк:
- Проходим по каждой строке матрицы
- Устанавливаем переменную j в значение n
- Пока j больше нуля и значение в матрице на данной позиции больше нуля - уменьшаем j
- Увеличиваем значение переменной ni на 1, если j равно 0 (т.е. строка не содержит отрицательных элементов)
Цикл для проверки столбцов:
- Проходим по каждому столбцу матрицы
- Устанавливаем переменную i в значение m
- Пока i больше нуля и значение в матрице на данной позиции больше нуля - уменьшаем i
- Увеличиваем значение переменной nj на 1, если i равно 0 (т.е. столбец не содержит отрицательных элементов)
Вывод результата подсчета строк и столбцов без отрицательных значений.