поиск в массиве чисел Фибоначчи

[VAVILON17]

Переменной T присвоить значение true, если среди элементов массива х есть хотя бы одно число Фибоначчи, и значение false иначе.
Pascal

что есть:

uses crt;
 
function fib(k:byte):real;
begin
if (k=1) then begin fib:=0;exit;end;
if (k=2) then begin fib:=1;exit;end;
 
fib:=fib(k-1)+fib(k-2);
end;
 
 
const n=10; 
var x:array[1..n] of integer;
i,k:byte;
t:boolean;
begin
clrscr;
writeln('введите ',n,'элементов массива');
for i:=1 to n do
read(x[i]);
readln;
t:=false;
for i:=1 to n do
if x[i]=fib(k) then
begin
 t:=true;
 
end;
writeln(t);
readln
end.

помогите преобразовать этот бред


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.