ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА .      Задача:
Сформировать массив из 10 произвольных чисел. Определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива. 
                                                                             Pascal ABC.

var a:array[1..10] of integer;k,s,p,i:integer;beginrandomize;p:=1;for i:=1 to n dobegin a[i]:=random(21)-10;if a[i]>0 then s:=s+a[i]else if a[i]<0 then p:=p*a[i]else inc(k3);write (a[i]:4);end;writeln ('Сумма положительных=',k1);writeln ('произведение отлицательных=',k2);writeln ('кол-во нулевых=',k3);end.