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

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