Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в диапозоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями(составьте программу пожалуйста)

Program ex;
var  i, h, k: integer;  a: array[1..8] of integer;
begin  h := 0;  k := 0;  for i := 1 to 8 do   begin    a[i] := random(1, 10);    if i mod 2 = 0 then      k := k + 1    else      h := h + a[i]  end;  writeln(Колл-во четных элементов : , k);  write(Сумма нечетных элементов массива: , h)end.