Szövegfájl (szoveg.txt) másolása egy új szövegfálba (ujszoveg.txt) (Masolo.pas) program Masolo; uses crt; var f,g:text; s:string; BEGIN writeln('A masolas kezdete...'); assign(f,'szoveg.txt'); Az f változóhoz hozzárendeljük a szoveg.txt-t. assign(g,'ujszoveg.txt'); A g változóhoz hozzárendeljük az ujszoveg.txt-t. reset(f); rewrite(g); while (not eof(f)) do begin readln(f,s); Kiolvasunk egy sort az f-ként azonosított fájlból és eltároljuk az s nevű string típusú változóba. writeln(g,s); Kiírjuk az előbb beolvasott sort a g-ként azonosított fájl egy sorába. end; close(f); Bezárjuk az olvasásra és írásra megnyitott fájlokat close(g); END.