Szövegfájlból (eredeti.txt) beolvasott sorok kiírása egy új fájlba (rendes.txt) rendezetten (RendezoMasolo.pas) program RendezoMasolo; uses crt; var i,j,n:integer; f,g:text; s:string; sorok:array [1..100] of string; procedure cserel(k,j:integer); var x:string; begin x:=sorok[k]; sorok[k]:=sorok[j]; sorok[j]:=x; end; BEGIN clrscr; assign (f,'eredeti.txt'); assign (g,'rendes.txt'); reset(f); rewrite(g); i:=1; while (not eof(f)) do begin readln(f,s); sorok[i]:=s; A sorok tömbbe tároljuk el a beolvasott sorokat. i:=i+1; end; n:=i-1; Az n változót a sorok száma szerint állítjuk be. Azért -1, mivel az i-hez az előző ciklus végén hozzáadódik 1. for i:=1 to n-1 do for j:=i+1 to n do Végigmegyünk a sorok tömb elemein és elrendezzük azokat. if (sorok[i]>sorok[j]) then cserel(i,j); for i:=1 to n do Kiírjuk a fájlba a már rendezett sorokat. writeln(g,sorok[i]); close(f); close(g); END.