Нужна помощь! Определить кол-во чисел Фибоначчи в последовательности целых чисел. Количество элементов в последовательности неизвестно.

Var k,a:integer;
function fib(f:integer):boolean;
var f1,f2,fn:integer;
begin
f1:=1; f2:=1; fn:=1;
while fnlt;f do
 begin
 fn:=f1+f2;
 f1:=f2;
 f2:=fn;
 end;
fib:=fn=f;
end;
begin
k:=0;
writeln(Вводите числа (0-конец последовательности));
readln(a);
while alt;gt;0 do
 begin
 if fib(a) then k:=k+1;
 readln(a);
 end;
writeln(k = ,k);
end.

Пример:
Вводите числа (0-конец последовательности)
5
10
2
15
8
13
20
0
k = 4