Дан одномерный массив, состоящий из 10 элементов. Сосчитать сумму четных элементов массива

var  a : array [1..10] of integer;   b, i : integer; begin   randomize;   write('Исходный массив: ');   for i := 1 to 10 do    begin     a[i] := random(10);     write(a[i], chr(32));     if (a[i] mod 2) = 0 then b += a[i];   end;   writeln();  writeln('Сумма четных: ', b); end. - написано в Pascal ABC - массив из 10 элементов заполняется случайными числами от 0 до 10 - суммируются четные значения элементов, а не элементы с четными индексами