Все элементы массива с нечетными номерами увеличить в 2 раза

uses crt;
 
const n=8;
 
var
a:array [1..n] of integer;
i,x,y:integer;
 
begin
  for i:=1 to n do
     begin
     Write('Ââåäèòå ',i,'-é ýëåìåíò ìàññèâà: ');readln(a[i]);
     if a[i]=4 then inc(x);
     if a[i]=5 then inc(y);
     end;
writeln;
writeln('Ýëåìåíòû ìàññèâà "À":');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
writeln('Êîë-âî ÷åòâåðîê = ',x,' Êîë-âî ïÿòåðîê = ',y);
end.

uses crt;
 
const n=22;
 
var
a:array [1..n] of integer;
i,x,y:integer;
 
begin
Writeln('Массив А:');
  for i:=1 to n do
     begin
     randomize;
     a[i]:=random(9)+1;
     write(a[i]:3);
     end;
writeln;
  for i:=1 to n do
     begin
     if odd(a[i]) then a[i]:=a[i]*2;
     end;
writeln;
Writeln('Новый массив А:');
   for i:=1 to n do
     write(a[i]:3);
     writeln;
 
end.
 
для нечетный индексов
if odd(i) then a[i]:=a[i]*2;

const
  n=8;
type
  mas=array[1..n] of byte;
var
  a:mas;
  i,four,five:byte;
begin
  four:=0;
  five:=0;
  for i:=1 to n do
    repeat
      write('Vvedite otsenky:');
      read(a[i]);
      if not (a[i] in [2..5]) then
        writeln('Nepravilniy vvod. Razreshen vvod chisel ot 2 do 5');
      if a[i]=4 then
        inc(four);
      if a[i]=5 then
        inc(five);
    until a[i] in [2..5];
    writeln('Chetverok:',(100*four/8):0:0,'%');
    writeln('Pyaterok:',(100*five/8):0:0,'%');
end.

const
  n=12;
type
  arr=array[1..n] of integer;
var
  z,x:arr;
  i,k:integer;
begin
  randomize;
  writeln('Ishodniy massiv Z:');
  k:=0;
  for i:=1 to n do
    begin
      z[i]:=-10+random(21);
      if z[i] mod 10=0 then
        begin
          inc(k);
          x[k]:=z[i];
        end;
      write(z[i]:4);
    end;
  writeln;
  if k=0 then
    writeln('Massiv Z ne soderzhit elementov, kot. okanch. na 0')
  else
    begin
      writeln('Massiv X:');
      for i:=1 to k do
        write(x[i]:4);
    end;
end.