Сумма чисел Фибоначчи Опции

[Jangle]

Задание 2. Числа Фибоначчи (fn) определяются формулами: f0 = f1;
f1 = 1; fn = fn-1 + fn-2 при n = 2, 3, …, т.е. это бесконечная последовательность чисел вида:
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, …
Определить: сумму первых чисел Фибоначчи, такиз, что значение суммы не превышает диапазона типа Integer (LonLongInt).

Спасибо за помощь!

[Jangle]

uses crt;
Var Fib1, Fib2 : longint;
Buf,i,s:longint;
Begin
clrscr;
Fib1 := 1; Fib2 := 1;I:=1;S:=2;
repeat
begin
Buf := Fib2;
Fib2 := Fib2 + Fib1;
Fib1 := Buf;
S:=S+fib2;
i:=i+1;
end;
until s>32767;
s:=s-fib2;
Writeln('itog=',s,'  ',i);
readkey;
end.

Подумал. Может так? Люди help!