Заменить элементы массива, стоящие на четных местах, их индексами

Var {-1-. Опишите массив}
 
i: integer;
 
begin
 
{-2-.Введите правильно формулу автозаполнения элементов массива числами из требуемого диапазона по условию задачи}
 
For i:= to do b[i]:=
 
{-3-. Запишите вывод элементов в строку через пробел}
 
For i:= to do write();
 
{-4-. Вставьте оператор перевода курсора в начало новой строки}
 
{-5-. Запишите поиск и замену элементов массива стоящих на четных местах их индексами}
 
For i:= to do if then
 
{-6-. Запишите вывод преобразованных элементов массива в строку через пробел}
 
For i:= to do write();
 
{-7-. Вставьте оператор перевода курсора в начало новой строки}
 
End.

var a:array [1..10] of integer;
  i: integer;
begin
  
  for i:=1 to 10 do
    a[i]:=random(41)-20;
  
  for i:=1 to 10 do
    write(a[i],' ');
  writeln;
  
  for i:=1 to 10 do
    if i mod 2 = 0 then a[i]:=i;
  
  for i:=1 to 10 do
    write(a[i],' ');
  writeln;
end.