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

uses crt;var a:array[1..99,1..99] of integer;m,n,s,i,j:integer;beginwrite('Введите 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.