В матрице посчитать количество строк и столбцов не содержащих отрицательных элементов - 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.