дан целочисленный массив размером NxM.вывести на экран индексы последних отрицательных элементов в каждой строке.пожалуйста напишите полность программу.срочно,помогите!!!!

program noname;uses crt;vara:array[1..1000,1..1000] of integer;i,j,min,n,m,l:integer;beginclrscr;write('n='); readln(n);write('m='); readln(m);for i:=1 to n dofor j:=1 to m do beginwrite('a[',i,',',j,']=');readln(a[i,j]);end;for i:=1 to n do begin writeln;for j:=1 to m dowrite(a[i,j],' ');end;writeln;

for i:=1 to n do beginmin:=0;for j:=1 to m doif min>a[i,j] then begin min:=a[i,j]; l:=j; end;if min<>0 thenwriteln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)else writeln ('v ',i,' stroke otricatelnyh chisel net');end;readkey;end.