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

Uses
CRT;
var
 a:array[1..100,1..100] of integer;
 i,j,n,m,k:integer;
 w:boolean;
begin
read(n,m);
clrscr;
randomize;
for i:=1 to n do
begin
  for j:=1 to m do
  begin
   a[i,j]:=((-10)+random(20));
   write(a[i,j]:3);
  end;
writeln;
end;
writeln;
w:=false;
for i:=1 to n do
Begin
k:=0;
 For j:=1 To m Do
  If a[i,j]<0 Then
    begin
     Inc(k);
    end;
     if k=2 then w:=true;
end;
 if w then writeln('Åñòü.')
  else
   writeln('Íåò');
readln;
end.