Для одномерного массива X3, содержащего n элементов, найти произведение и количество элементов, превышающих заданное число С

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