Для одномерного массива X3, содержащего n элементов, найти творение и количество

Var 
 i, p, s,c : integer; 
a : array [0..n] of integer;n - данное число
begin
p:=1;
s:=0; 
readln(c);
 for i:=0 to n do  поменять n на кол-во частей
 begin  
 if a[i] gt; c then 
 begin   
p:= p * a[i];   
 s:= s + 1;   
end; 
end;
writeln(p);вывод творенья чисел больше данного
writeln(s);вывод колличества этих чисел
end.