Элементы массива, номера...

Элементы массива, номера которых кратны 3 увеличить в 2 раза. Паскаль ABC СРОЧНО!ПОЖАЛУЙСТА!

 

var
a: array[1..9999] of integer;
i, n: integer;
begin
randomize;
Write('Введите число эементов массива: '); readln(n);
for i:=1 to n do
begin
a:=-999+random(1001);
write('a[', i, ']=', a);
if a mod 2 = 0 then write(' - кратно 3')
else write(' - не кратно 3');
writeln;
end;
writeln('Увеличим номера чисел, кратных 3, в 2 раза:');
for i:=1 to n do
begin
if a mod 2 = 0 then
begin
a:=a*2;
writeln('a[', i, ']=', a);
end;
end;
end.