Написать программу, которая в массиве из 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.

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