Hogyan irassam ki a Fibonacci-sorozat első 8 elemét LAZARUS-ban?

hát szerintem mondjuk függvénybe elengánsabb lenne, mint ez a megoldás

function fibo(n:integer):integer;

begin

if n=1 or n=2 then

fibo:=1;

else

fibo(n)=fibo(n-1)+fibo(n-2);

end;

end;

Aztán ezt a függvényt betenni a ciklusba:

for i:=1 to 8 do

begin

valtozo:=fibo(i);

Writeln(fibo);

end;

Valahogy így persze elhagytam belőle néhány részt, pl a változók deklarálása, már az utolsónál, illetve ezt csak console-ra ír ki de valahogy így néz ki.