Billentyűzetről bevitt sorok írása fájlba (szoveg.txt) (Sorszerk.pas) program Sorszerk; uses crt; var f:text; s:string; BEGIN clrscr; assign (f,'szoveg.txt'); rewrite (f); s:='*'; Azért rakunk bele egy *-ot, hogy legyen értéke, ne legyen üres. while (length(s)>0) do begin Addig tart a ciklus, amíg az s nevű string értéke nem nulla. write('? '); A sor elejére kiírunk egy kérdőjelet. readln(s); Beolvassuk billentyűzetről az adatot. if(length(s)=0) then break; Ha a bevitt sor üres, azaz üres entert tartalmaz, akkor vége a ciklusnak. writeln(f,s); Kiírja a bevitt sort a fájlba. end; close(f); END.