ПОМОГИТЕ СРОЧНО

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

спасибо большое

Program prog;var a: array [1..8] of integer;    k,s,i: integer;beginrandomize;for i:=1 to 8 do begina[i]:=random(10)+1;writeln('a[',i,'] = ', a[i]);if a[i] mod 2 = 0 then k:=k+1elses:=s+a[i];end;writeln;writeln('Kolichestvo chetnyh k = ', k);writeln('Summa nechetnyh S = ', s);end.