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.