Составте пргорамму которая заполняет массив а 1.8 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму массива с нечётнвми значениями

Program dfg;
var
a: array [1..8] of integer;
f,n,i:integer;
begin
n:=0;
randomize ;
for I:=1 to 8 do
begin
a[i]:= random(1,10);
writeln(a[i]);
if (a[i] mod 2)=0 then
begin
f:=1;
end
else 
begin 
f:=0;
end;
n:=n+f;
end;
writeln(n);
end.