Ezt hogyan lehetne jobban/hatékonyabban/elgánsabban megoldani Pascalban?

Ez lenne a feladat:Állítsuk elő és írassuk ki az első N darab Fibonacci-számot. Ennek a sorozatnak az a jellemzője, hogy bármelyik eleme egyenlő az előző kettő összegével. A sorozat néhány eleme: 1, 1, 2, 3, 5, 8, 13, ...

Én megcsináltam, de hogyha azt írjuk be neki hogy n=1, akkor is az első 2-t írja ki. (egyébként egymásbaágyazott ciklusokkal kellene megoldani, de nem értem, hogyan kéne úgy)

Itt lenne az általam készített kód:

program fibonacci;

var a,b,c,i,n,k:integer;

begin

writeln('Az elso hany fibonacci szamot irjam ki? ');

readln(n);

a:=1;

b:=1;

c:=2;

write(a,',',b,',');

for i:=1 to n-2 do begin

write(c);

k:=c;

c:=c+b;

b:=k;

write(',');

end;

end.

Előre is köszönöm a válaszokat.