Mit csinálnak ennek a programnak a részei? (részletes leírást szeretnék, hogy az adott utasítások mit csinálnak?!

Procedure Hozzaad; - Ez a program neve

Var x : Char; - x nevű karakteres változó

Begin - progi eleje, belépési pontja

ClrScr; - képernyőtörlés

Assign(f,'C:\gyur.dat'); - az f nevű fájl-handler-hez rendel egy fájlt (bár ez nem volt definiálva)

{$I-} - kikapcsolja az IO hiba miatti leállás

Reset(f); - megnyitja a fájlt

{$I+} - visszakapcsolja az IO hiba miatti leállás

If IOResult <> 0 Then Begin - ha nem tudta megnyitni (pl. nem létezik)

Rewrite(f); - akkor létrehozza

End; - progi vége

Repeat - cilus eleje (ez nem tudom, mit keres itt, blokkon kívül)

x:=ReadKey; - billentyű beolvasás

Until x in ['i','I','n','N']; - ciklus vége, újra amíg nem iInN betűk valamelyikét nyomták meg

Until x in ['n','N']; - Ugyanaz, csak nN betűkre (nem tudom, mit keres itt)

Repeat

ch:=ReadKey;

Until ch in ['1'..'8']; - ciklus vége, újra, amíg nem 1-8 közötti dzám lett leütve.

De ez így nem fog lefordulni szerintem, össze-vissza van benne pár utasítás.

"Procedure Hozzaad; - Ez a program neve"

Bocsánat, hülyeséget írtam (félreolvastam). Ez egy rutin neve (szubrutin, eljárás, stb.) A begin-end is ennek az eleje-vége, nem a programé. A var x pedig ennek egy lokális változója.

:)

If IOResult <> 0 Then Begin - begin: if blokk eleje

Rewrite(f);

End; - if blokk vége

A legelső beginnek nincs is párja.