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

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.