Вектор. чет/нечет+фибоначи

[Март]

Вводится размер вектора, состоящего из целых чисел, и его элементы.найти прозведение элементов, стоящих на нечётных местах и при этом являющихся числами Фибоначчи;
Никак не могу совместить условия проверки четности и фибоначчи. Прогу написал, но она не работает. Помогите, пожалуйста, исправить ошибки. Вот прога:

var
  a:array [1..100] of integer;
  n,i,f0,f1,f2,p:integer;
begin
  writeln('Введите количество элементов:');
  readln(n);
  writeln('Введите элементы');
  p:=1;
  for i:=1 to n do
  begin
    readln(a[i]);
   for i:=1 to n do
     if i mod 2=0 then

      f0:=0;
      f1:=1;
      f2:=1;
        while f2<=a[i] do
        begin
          f0:=f1;
          f1:=f2;
          f2:=f0+f1;
        end;

     if a[i]=f2 then
       p:=p*a[i];
    end;

   writeln('p=',p);
  readln;
  readln;
end.

From Stilet: Почему код не выделяем? что за неуважение такое?

[ZvEr_HaCkEr]

А еще лучше поиск заюзать.