числа фибоначчи в массиве

['studentka']

не могли бы Вы мне помочь? Дано целое число N(>0). Сформировать и вывести целочисленный массив размера N, содержащий N первых членов последовательности чисел Фибоначчи. Вот код:

var
  Form1: TForm1;
  i,k: integer;
   n:integer;
 a: array [1..10] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 n:=strtoint(edit1.Text);
    StringGrid1.ColCount:=n;
  for i:=1 to n do
    begin
  a[1]:=0;
  a[2]:=1;
  while(a[2]<=n) do begin
  k:=a[1];
  a[1]:=a[2];
  a[2]:=k+a[2];
  a[i]:=a[2];
  a[i]:=a[i-2]+a[i-1];
   stringgrid1.Cells[i-1,0]:=inttoStr(a[i]);

 end;
end;

end;

end.

вроде все правильно, но почему-то ответ выдается совершенно не то, что требуется.

[Mad_Cat]

a[1]:=0;a[2]:=1;
for i:=1 to 2 do
stringgrid1.Cells[i-1,0]:=inttoStr(a[i]);
i:=3; 
while(i<=n) do begin
  a[i]:=a[i-2]+a[i-1];
stringgrid1.Cells[i-1,0]:=inttoStr(a[i]);
i:=i+1;
end;

['studentka']

огромнейшее спасибо!!!