Дана прямоугольная матрица mxn .определить есть в данном массиве строка в которой ровно два отрицательных элемента. Решить через Pascal

uses crt;
var a:array[1..99,1..99] of integer;
m,n,s,i,j:integer;
begin
write(Введите m и n: );
readln(m,n);
writeln(Исходная матрица: );
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10-(-10)+1)-10;
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] end;
if s=2 then begin writeln(Строка с двумя отрицательными элементами есть); halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}
s:=0;
end;
writeln(Строки с двумя отрицательными элементами нет);
end.