Даны 8 чисел. найти средне арфмитическое этих чисел, произведение нечетных и сумму чётных чисел

Program n1;
const n=8;
var a: array[1..n] of integer;
S,Sch,P,i: integer;
begin
S:=0;
P:=1;
Sch:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
for i:=1 to n do
begin
if ( a[i] mod 2=0) then Sch:=Sch+a[i]
else P:=P*a[i];
S:=S+a[i];
end;
writeln('сумма четных: ',Sch);
writeln('произведение нечетных: ',P);
writeln('среднее арифметческое: ',S/n);
end.