Дана вещественная прямоугольная матрица а, размером nxm найти номер первой из строк, не содержащих не одного положительного элемента.

Var A:array[1..1000, 1..1000] of real; // Если есть ограничение на максимальный
 //размер матрицы, запишите его тут (скажем, если максимальный размер матрицы
 //100x100, то строчка должна выглядеть так: var A:array[1..100, 1..100] of real;
i, j:integer; n,m:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do read(A[i, j]);
for i:=1 to n do
for j:=1 to m do
if A[i,j]<0 then begin
                 write(i);
                 break;
                 end;
end.