Отыскать в массиве в(10) сумму частей под четными номерами

Program summ;
var
B: array [1..100] of integer;
n, i, sum: integer;
begin
writeln(Введите количество элементов массива);
readln (n);
for i:=1 to n do B[i]:=random(100);
for i:=1 to n do
if i mod 2=0 then sum:=sum+B[i];
writeln(Сумма элементов с четными индексами одинакова: ,sum);
readln;
end.

В условии используем функцию выделения остатка от разделенья mod. Если остаток от дробленья на 2 равен 0, означает число четное.