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

Vara: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.