Дан одномерный массив, состоящий из 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
- суммируются четные значения элементов, а не элементы с четными индексами