Дан двумерный массив. Определить количество строк, в которых присутствует хотя бы один отрицательный элемент — Pascal(Паскаль)

uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,m,n,k:integer;
begin
 ClrScr;
 Randomize;
 Write('n=');
 Readln(n);
 Write('m=');
 Readln(m);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-10;
     Write(a[i,j]:4);
    end;
  Writeln;
 end;
 k:=0;
 for i:=1 to n do
  for j:=1 to m do
   if a[i,j]<0 then
    begin
     k:=k+1;
     break;
    end;
 writeln(k);
Readkey;
end.