Написать программу, которая в массиве из 8 случайных вещественных чисел находит сумму элементов, стоящих на четных местах., Помогите пожалуйста найти ошибку в программе Опции

[Nagare Boshi]

Program z3;
Var i,k:integer;
B:array[1..100] of real;
Begin
for i:=1 to 8 do
Begin
b[i]:=trunc(random*100);
End;
k:=0;
for i:=1 to 8 do
Begin
if b[i] mod 2=0 then
k:=k+1;
End;
WriteLn(k);
End.

Заранее спасибо.

[Lapp]

Подправь цикл:

for i:=1 to 8 do if i mod 2=0 then k:=k+b[i];

P.S.
Немного странный способ..

b[i]:=trunc(random*100);

Вот так не проще?

b[i]:=random(100);