Задать массив из 8 частей целого типа. Заполнить массив случайными значениями

program sum_prod;
var s, p: integer;
a: array [1..8] of integer;
begin
randomize;
s:= 0;
p:= 1;
for i: integer:=1 to 8 do
begin
a[i]:= random(21) - 10;
write(a[i] : 4);
if i mod 2 = 0 then s:= s + a[i];
if i mod 2 = 1 then p:= p * a[i];
end;
writeln();
writeln(Сумма четных частей: , s);
writeln(Творенье нечетных частей: , p)
end.