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

[RomashkaGT]

добрый вечер. требуется ваша помощь, форумчане выполняю задание в паскале.
мне было дано задание- подсчитать количество отрицательных элементов массива и их номера. с подсчетом я справился, код прилагается к посту так сказать)) а вот с выводом нумерации отриц. элементов проблемка. не могу написать условие...

a:array[1..10] of integer;
otr,n,i: integer;
begin
clrscr;
randomize;
write('Vvedite kolichestvo elementov massiva (do 10) = ');
readln(n);
for i:=1 to n do begin
a[i]:=random(25)-5;
if a[i]<0 then otr:=otr+1;
Writeln(a[i]); end;
writeln('Kolichestvo otricatel`nix elementov massiva- ',otr);
readln;
end.

[masterlomaster]

program KolOtEl;
var
a:array[1..100]of integer;
kol,i,sum,n:integer;
   begin
    write('n=');
    read(n);
     for i:=1 to n do
      begin
       write('a[',i,']=');
       read(a[i]);
      end;
       writeln;
       kol:=0;
     for i:=1 to n do
      if a[i]<0 then inc(kol);
       writeln('kol-vo=',kol);
       readln;
   end.

[RomashkaGT]

эх, код также считает кол-во отрицательных элементов, а мне нужен вывод отриц. номеров элементов массива на экран

[Serge_Bliznykov]

 for i:=1 to n do begin
    a[i]:=random(25)-5;
    Write(a[i]:4,' '); 
 end;
 WriteLn;
 {подсчёт и одновременно вывод индексов отрицательных элементов}
 otr := 0;
 if a[i]<0 then begin
    otr:=otr+1;
    Write(i:3,' ');
 end; 
 WriteLn;
 writeln('Kolichestvo otricatel`nix elementov massiva- ',otr);
readln;