прошу посодействовать с программой и разобраться с ней

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
f0, f1, f2: integer;
  a: array [1..100] of real;     //содержит 100 эл
  i, n: integer;
  s: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
writeln ('vvedite chislo vechestvennux chisel N:');
   readln (n);//не дробные не отрицательные
   writeln ('vvedite lubyu posledovatelonostu chisel:');
     for i:=1 to n do  //поочередно перечисляеит и от 1 до н
   readln(a[i]);   //ввод элементов массива
 
   f0:= 1; f1:=1; f2:= 1;  //изначальные значения для переменных
   s:= 0;
   while (f2<=n) do   //цикл кот работает по ка выполняется условие   (ограничения по размеру массива чтоб он не считал бесконечно
      begin
          s:=s+a[f2]; //суммирует с элементом массива  ф2
     f2:=f0+f1;  //при предыдущем массивом суммирует последующее значит оно будет равняться ф2
 
   f0:= f1;   //изменение перемееных для следующей проверки    как бы возрастает
   знач ф2  чтобы проверяла след эл массива по очереди
   f1:= f2;
       end;
 
   writeln              //когда все проверит элмкенты и выйдет из цикла
('Otvet : ', s:5:5); 
   readln;
end.

var
   fib: set of byte;
   a:array[1..100] of real;
   mas:array[1..100]of integer;
   i,n:integer;
   sum:real;
begin
   write('n=');
   read(n);
   writeln;
   for i:=1 to n do
    begin
       write('a[',i,']=');
       read(a[i]);
    end;
   writeln;
   writeln;
   include(fib,1);
   include(fib,1);
   mas[1]:=1;
   mas[2]:=1;
   for i:=3 to n do
    begin
       mas[i]:=mas[i-1]+mas[i-2];
       include(fib, mas[i]);
    end;
   sum:=0;
   for i:=1 to n do
    if i in fib then sum:=sum+a[i];
   writeln('summa=',sum:2:2);
   readln;
end.