Szövegfájl (szoveg.txt) létrehozása és feltöltése 100 darab nullákat tartalmazó sorral (Ha a fájl létezik, akkor a tartalma kitörlődik) (Feltolto.pas) program Feltolto; uses crt; var f:text; i:integer; function szaz0:string; A függvény String típusú változót ad vissza. var i:integer; s:string; begin s:=''; for i:=1 to 100 do s:=s+'0'; Mint látható, a string kiegészítése itt nem jelent problémát, csak hozzá kell adni az új karaktert. szaz0:=s; end; BEGIN assign(f,'szoveg.txt'); Az f változóhoz hozzárendeljük a szoveg.txt-t. rewrite(f); Állomány megnyitása írásra, a tartalom törlődésével. for i:=1 to 100 do begin writeln(f,szaz0); 100-szor meghívjuk a szaz0() függvényt, ami 100 db 0-t ad vissza és ezt kiírjuk az f-be, azaz a fájlba. end; close(f); Bezárjuk az írásra megnyitott fájlt. END. Szövegfájl (szoveg.txt) létrehozása és feltöltése 100 darab nullákat tartalmazó sorral (Ha a fájl létezik, akkor a tartalma megmarad) (FeltoltoV1.pas) program FeltoltoV1; uses crt; var f:text; i:integer; function szaz0:string; var i:integer; s:string; begin s:=''; for i:=1 to 100 do s:=s+'0'; szaz0:=s; end; BEGIN assign(f,'szoveg.txt'); append(f); Állomány megnyitása írásra, a tartalom megtartásával. for i:=1 to 100 do begin writeln(f,szaz0); end; close(f); END.