заменить отрицательные элементы порядковымы номерами Pascal

[rager06]

Всем привет! вот у меня в паскале такая задачка, я встрял чутка с ней. помогите разобраться, пожалуйста

Значит, условие такое:

Дан одномерный массив, элементы массива целые числа, количество элементов не более 20. Написать процедуру: каждый отрицательный элемент массива заменить его порядковым номером и определить число таких замен.

дорешался вот до чего:

uses CRT;
var a: array[1..21] of integer;
	i, n, p: integer;
begin
	clrscr;
	Write('vvedite razmer (ne bolee 20): ');
		readln(n);
		writeln;
	Randomize;
	for i := 1 to n do
		begin
			a[i] := random(10)-5;
			write(arr[i], '  ');
			if a[i] < 0 then
				p := i;
		end;
	writeln;
	write(p);

	readkey;
end.

Понимаю, что не правильно, а как правильно не понимаю(((

[GetMax]

uses CRT;
var 
  a: array[1..21] of integer;
  i, n, p: integer;
begin
  clrscr;
  Write('vvedite razmer (ne bolee 20): ');
  readln(n);
  writeln;
  Randomize;
  p:=0;
  for i := 1 to n do
  begin
    a[i] := random(10)-5;
    write(a[i], '  ');
    if a[i] < 0 then
    Begin
       a[i] := i;
       Inc(p)
     end;
  End;
  writeln;
  For i:=1 to N do write(a[i]);
  Writeln;
  Writeln('Kolichestvo zmen = ',p);
  readkey;
end.