Паскаль. Ввести 10 целых чисел методом генерирования случайных чисел. Подсчитать сумму четных и произведение нечетных

program ex57; {сумма и произведение случайных чисел}
Uses Crt;
var
x,s,p,i: integer;
BEGIN
ClrScr;
Randomize;
S:=0; {s - сумма четных чисел}
P:=1; {p - произведение нечетных чисел}
For i:=1 to 10 do
begin
x:=Random(9)+1;
writeLn(x);
IF x mod 2 =0 then s:=s+x Else P:=p*x;
end;
writeLn('S=',s,' p=',p);
readLn;
END.