Сформировать массив случайным образом вывести на экран элементы, стоящие на четных местах

Var
a:array[1..100] of integer;
i:integer;

begin
 for i:=1 to 100 do
   begin
    a[i]:=random(100)+1
    if ((i mod 2)=0) then write(a[i]," ");    
   end;
end.