Пожалуйста посчитайте пожалуйста!!!Срочно!!!Заранее огромное спасибо."Заполнить массив из 8 эл-тов случайными числами в диапазоне от 1 до 10, и вывести на экран кол-во эл-тов с четными значениями и сумму эл-тов с нечетными числами

begin
  var a:=ArrRandom(8,1,10); a.Println;
  Writeln('Количество элементов с четными значениями ',
      a.Where(x->x.IsEven).Count);
  Writeln('Сумма элементов с нечетными значениями ',
      a.Where(x->x.IsOdd).Sum)
end.


7 4 8 6 5 8 7 6
Количество элементов с четными значениями 5
Сумма элементов с нечетными значениями 19