Вывести последовательность n чисел Фибоначчи. Первые два числа равны 1, а каждое последующее — сумме двух предыдущих- Pascal(Паскаль)

Program q;
var i,n: integer;
a:array [1..100] of integer;
begin
clrscr;
write('Введите количество чисел Фибоначчи: ');
readln(n);
a[1]:=1;
a[2]:=1;
write(a[1],' ',a[2], ' ');
For i:=3 to n do
begin
a[i]:=a[i-2]+a[i-1];
write(a[i], ' ');
end;
end.

Program Fibonachchi;                {1 1 2 3 5 8 13 21 34 55 89 144}
uses crt;                           {1 2 3 4 5 6  7  8  9 10 11  12}
Var
n,i:integer;
 
function fib(x:integer):integer;
begin
if (x=1) or (x=2) then
fib:=1 else
fib:=fib(x-2)+fib(x-1);
end;
 
 
Begin
clrscr;
writeln('vvedite kol-vo chisel fibonachchi n=');
readln(n);
for i:=1 to n do begin
write(i); gotoxy(wherex+2, wherey);
writeln(fib(i));
end;
readln
END.