В заданной матрице  A(N, M)  найдите количество строк, не содержащих отрицательных чисел — Pascal(Паскаль)

var
   a: array[1..100,1..100] of integer;
   i,j,n,m,k: byte;
   f: boolean;
begin
   randomize;
   write('размеры: ');
   readln(n,m);
   for i:=1 to n do
      begin
         for j:=1 to m do
            begin
               a[i,j]:=random(61)-30;
               write(a[i,j]:4);
            end;
         writeln;
      end;
   writeln;
   for i:=1 to n do
      begin
         f:=true;
         for j:=1 to m do
            if a[i,j]<0 then f:=false;
         if f then inc(k);
      end;
   writeln('количество таких строк: ',k);
   readln
end.