Дано целое число n>2 сформировать и вывести целочисленный массив, содержащий n первых элементов последовательности (Delphi)

[Richik123]

Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи.
F1=1, F2=1 ...
размерность и диапазон массива вводится в edit.

[VIK_aka_TOR]

f[1] := 1;
f[2] := 1;
for i := 3 to n do
  begin
    f[i] := f[i-1] + f[i-2];
    writeln(f[i]); 
  end;