Составьте программу, которая заполняет массив 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.