Дана последовательность натуральных чисел, за которой 0, вычислить сумму тех, номера которых - числа фибоначчи

Var a,b,c,i,j,t,k,n,m:integer;
Begin
 clrscr;
  a:=0; b:=1; j:=1; t:=1;
 Repeat
 Write('Vvedite element(0 - zakonchit):');
 Readln(m);
 inc(n);
 
 
  {j:=t+a;}
  t:=a+b; write(' t=',t);
 
  a:=b; write(' a=',a);
  b:=t; write(' b=',b);
  write(' n=',n);
  write(' j=',j);
 
  If n=t then k:=k+m;
 
 Until m=0;
  a:=0; b:=1;
 write(a,' ');
 write(b,' ');
 For i:=1 to n-2 do begin
                   write(a+b,' ');
                   c:=b;
                   b:=a+b;
                   a:=c;
                  end;
  writeln;
  {k:=k+m;}
  Write('Summa chisel s nomerami prinadl rjadu Fibonacci=',k);
 Readln;
End.

Uses CRT;
var n,i,m,s,j:integer;
 
function f(n:integer):integer;
begin
 if n=1 then f:=1 else
 if n=2 then f:=2 else
 f:=f(n-1)+f(n-2);
end;
 
begin
 clrscr;
 repeat
  Write('Vvedite element(0 - zakonchit):');
  read(m);
  n:=n+1;
  for i:=1 to n do
  if n=f(i)then s:=s+m;
 until m=0;
 writeln('Summa chisel s nomerami prinadl rjadu Fibonacci=', s);
end.