Фибоначчи Опции

[yar]

Вот такая задчка. Я её замутил сам, не знаю, как-то не красиво, и хочу что бы мне вы подсказали самое рациональное решение
Так вот. Дана последовательность чисел Фибоначчи (1,1,2,3,5,8,13,21, .... )
 Найти значение элемента по его номеру (например №6 - восемь)
Заранее благодарен.  ;D

[KLIM]

uses crt;
var
n:array[1..100] of longint;
x,y:integer;
begin
clrscr;
writeln('введите номер');
readln(y);
n[1]:=0;
n[2]:=1;
for x:=3 to y do
begin
n[x]:=n[x-1]+n[x-2];
end;
writeln('число ',n[x]);
repeat until keypressed;
end.
(не компилировал)