Дана вещественная прямоугольная матрица А, размером 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]lt;0 then begin
                 write(i);
                 break;
                 end;
end.