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

program a1;
uses crt;
const n=10; m=10;
var a:array [1..n,1..m] of integer;
b,j,i:integer;
begin clrscr;
randomize;
for i:=1 to n do
        begin
        writeln;
        for j:=1 to m do
                begin
                a[i,j]:=random(50)-10;
                write(a[i,j],' ');
                end;
        end;
for i:=1 to n do
        begin
        b:=0;
        for j:=1 to n do
                begin
                if a[i,j]<0 then b:=b+1;
                if b=2 then
                        begin
                        writeln;
                        writeln('Такая строка существует - строка ',i);
                        readln;
                        exit;
                        end;
                end;
        end;
end.