Вывод чисел фибоначчи в процедуре

[Sparky]

Необходимо составить программу, выводящую n первых чисел Фибоначчи рекурсивно, без цикла в главной программе. Вот мой код:

program ex;
var n,i:integer;

function fib(n:integer):longint;
var
   v:integer;
   begin
     if n<=2 then
     begin
          fib:=1;
     end
             else
             begin
                 fib:=fib(n-1)+fib(n-2);
             end;
   end;

begin
   write('Aaaaeoa eie-ai ?enae Oeaiia??e: ');
   read(n);
   for i:=1 to n do
       write(fib(i),' ');
end.

Сейчас вывод в главной программе, а мне нужно чтобы он был в рекурсивной процедуре.