Одномерные массивы. . Помогите решить срочно!!

12.Найдите среднее арифметическое чисел, неравных заданному С, и произведение неположительных чисел, стоящих на четных местах.
Решение задачи на Delphi.
Пример похожей задачи. .
procedure TForm1.Button1Click(Sender: TObject);
var
a,i,n:integer;
p,k,S:real;
b:array[1..10] of real;
begin
n:=StrToInt(Edit1.Text);
a:=StrToInt(Edit4.Text);
for i:=1 to n do
b:=StrTofloat(StringGrid1.Cells[0,i-1]);
s:=0;
for i:=1 to n do
if (b>0) then
begin
S:=S+b;
p:=s/i;
if b>a then
k:=k+p;
//i:=i+2;
end;
Edit2.Text:=floatToStr(p);
Edit3.Text:=floatToStr(k);
end;
end.