Найти произведение элементов массива, не равных 0 и стоящих на четных местах ( Delphi )

[Nikta1111]

Помогите исправить программу. Требуется найти произведение элементов массива, не равных 0 и стоящих на четных местах (с помощью оператора while-do и добавить необходимые операторы присваивания).

procedure TForm1.Button1Click(Sender: TObject);
  var
    n,i:integer;
    p:real;
    a:array[1..20] of real;
begin
  n:=StrToInt(Edit1.Text); 
   for i := 1 to n do
    a[i]:=StrToFloatDef(StringGrid1.Cells[i-1,0], 0);
  P := 1;
  for i := 1 to n do
    if a[i] <> 0 then
     P:=P*a[i];
  Edit2.Text:=FloatToStr(P);
end.

___________
1. Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну так добавьте проверку, что элемент стоит на чётном месте и всё!
например, так:

 for i := 1 to n do
    if ((i mod 2) = 0) and (a[i] <> 0) then
       P:=P*a[i];

или так:

 for i := 1 to n do
    if Not odd(i) and (a[i] <> 0) then
       P:=P*a[i];