Задача (Фибоначчи)

[Witaliy]

Нужно найти элемент с номер N (1 <= N <= 907) строки. Строка будуеться так: до конца строки последовательно дописывается сдедуеще число Фибоначчи. Получаем:
1123581321...

Например: 6
Выходные даные : 8
Ещё
1
Выход: 1

Спасибо.

Вот мой код:

{$n+}
program my;
var  a: array[1..1100] of char;
     l,i : integer;
     s : string;
     arr : array[1..3] of extended;
     n : longint;
begin
l := 2;
a[1] := '1';
a[2] := '1';
arr[1] := 1;
arr[2] := 1;
while l < 1100 do
 begin
 arr[3] := arr[2]+arr[1];
 arr[1] := arr[2];
 arr[2] := arr[3];
 str(arr[3]:1:0,s);
  for i := 1 to length(s) do
   a[l+i] := s[i];

 l := l+length(s);
 end;
readln(n);
writeln(a[n]);
end.

Но он хорошо не работает.

[Plague]

var s,c:string;
    f1,f2,f:int64;
    n:integer;
begin
  readln(n);
  f1:=1;
  f2:=1;
  s:='11';
  repeat
    f:=f1+f2;    
    str(f,c);
    s:=s+c;
    f1:=f2;
    f2:=f;
  until length(s)>n;
 writeln(s[n]);
end.

[Witaliy]

Спасибо! Всё прошло!

[Witaliy]

Приблема была в типе extended