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

const
  Rows = 5;
  Colls = 5;
var
  Matrix: Array[1..Rows, 1..Colls] of Integer;
  Count, CountRows, CountColls: Integer;
  i, j: Byte;
begin
  Randomize;
  CountRows:=0; CountColls:=0;
  writeln('Матрица: ');
  for i:=1 to Rows do
  begin
    Count:=0;
    for j:=1 to Colls do
    begin
      Matrix[i, j]:=Random(20)-5;
      if Matrix[i, j] >= 0 then
        Inc(Count);
      write(Matrix[i, j]:4);
    end;
    if Count = Rows then
      Inc(CountRows);
    writeln;
  end;
  for j:=1 to Colls do
  begin
    Count:=0;
    for i:=1 to Rows do
      if Matrix[i, j] >= 0 then
        Inc(Count);
    if Count = Colls then
      Inc(CountColls);
  end;
  writeln('Кол-во строк без отрицательных элементов: ', CountRows);
  writeln('Кол-во столбцов без отрицательніх єлементов: ', CountColls);
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,str,stb:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-2+random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
str:=0;
for i:=1 to m do
 begin
  j:=1;
  while(j<=n)and (a[i,j]>=0) do inc(j);
  if j>n then inc(str);
 end;
stb:=0;
for j:=1 to n do
 begin
  i:=1;
  while(i<=m)and(a[i,j]>=0) do inc(i);
  if i>m then inc(stb);
 end;
writeln('Количество строк без отрицательных=',str);
writeln('Количество столбцов без отрицательных=',stb);
readln
end.