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

var k,a:integer;function fib(f:integer):boolean;var f1,f2,fn:integer;beginf1:=1; f2:=1; fn:=1;while fn<f do begin fn:=f1+f2; f1:=f2; f2:=fn; end;fib:=fn=f;end;begink:=0;writeln('Вводите числа (0-конец последовательности)');readln(a);while a<>0 do begin if fib(a) then k:=k+1; readln(a); end;writeln('k = ',k);end.Пример:Вводите числа (0-конец последовательности)510215813200k = 4