Помогите пожалуйста.
1)Cоставить программу удвоения каждого элемента массива A(n) порядковый номер которого кратен 3
2)Дан массив А(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.Вывести массив на печать.

1) program array;

var A : array[1..10000] of integer;

   i:integer;

begin

for i:=1 to length(A) do begin

   if i mod 3 = 0 then

       A[i]:=A[i]*2;

end;

end.

-----------------------------------

2) program fff;

var A : array[1..100] of integer;

   i,n:integer;

begin

for i:=1 to n do begin

   if i mod 3 = 0 then

       A[i]:=i;

end;

end.