Посчитать наименьшее число Фибоначчи, которое больше заданного — Pascal(Паскаль)

uses crt;
var n, i: integer;
function fibbo(n: integer):integer;
begin
  if n <= 2 then fibbo:=1 
    else fibbo:=fibbo(n-1) + fibbo(n-2);
end;
begin
  clrscr;
  write('Введите число, n= ');
  readln(n);
  i:=2;
  while(n>fibbo(i)) do
    inc(i);
  writeln('Наименьшее число Фибоначчи, которое > ',n,', равно: ', fibbo(i));
  readln;
end.