Вывести номера всех отрицательных элементов массива

Program massiv;
uses crt;
var
n,m,nomer,i,j,min,max:  integer;
a:array[1..1000,1..1000] of integer;
procedure vvod;
begin
 Randomize;
  write('ââåäèòå êîë-âî ñòðîê='); readln (n);
  write('ââåäèòå êîë-âî ñòîëáöîâ=');  readln (m);
  write('ââåäèòå îò êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (min);
  write('ââåäèòå äî êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (max);
  min:=-min;
  writeln;
      writeln('  ÍÀ×ÀËÜÍÀß ÌÀÒÐÈÖÀ        ');
      writeln;
      For i:=1 to n do begin
        For j:=1 to m do begin
        a[i,j]:=random(min+max+1)-min;
        write(a[i,j]:4);
        end;
      writeln;
      end;
      end;
      procedure poisk;
      begin
        for i:=1 to n do begin
           for j:=1 to m do begin
           if a[i,j]<0 then begin
           writeln('otricatelniy element a[',i,',',j,']');
           end;
           end;
           end;
           end;
       begin
       vvod;
       poisk;
      end.