Задача (Фибоначчи) Опции

[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]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.

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

Спасибо.