Дана прямоугольная матрица 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]<0 then s:=s+1;

end;

if s=2 then begin writeln ('Строка с двумя отрицательными элементами есть') ; halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}

s:=0;

end;

writeln ('Строки с двумя отрицательными элементами нет') ;

end.