Дана прямоугольная матрица 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.