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

Var
A:array[1..8] of Integer;
i:Integer;
multiply:Integer;
count:Integer;
begin
Randomize;
multiply:=1;
count:=0;
writeln(' Элементы массива ');
for i:=1 to 8 do
begin
A[i]:=random(10) + 1;
writeln(A[i]);
if A[i] mod 2=0 then
count:=count+1;
if A[i] mod 2=1 then
multiply:=multiply*A[i];
end;
writeln('');
writeln('Чётных элементов всего = ',count);
writeln('Произведение нечётных = ',multiply);
end.