Szövegfájl (proba.txt) tartalmának beolvasása, az "a" és "e" betűk számának kiírása (BeolvasoSzamolo.pas) program BeolvasoSzamolo; uses crt; var f:text; s:string; function szamola(s:string):integer; A szamola függvény megszámolja az a betűk számát és egészként visszadja azt. var i,t:integer; begin t:=0; for i:=1 to length(s) do A ciklus addig tart, amíg a stringnek nincs vége. A length(s) visszaadja a string hosszát. if(s[i]='a') then inc(t); Ha a string alktuálisan vizsgált karaktere a betű, akkor növeljük a találat számát. szamola:=t; Visszaadjuk a találatszámot. end; function szamole(s:string):integer; A szamole függvény megszámolja az e betűk számát és egészként visszadja azt. var i,t:integer; begin t:=0; for i:=1 to length(s) do if(s[i]='e') then inc(t); szamole:=t; Visszaadjuk a találatszámot. end; BEGIN clrscr; assign(f,'proba.txt'); Az f változóhoz hozzárendeljük a proba.txt-t. reset(f); Állomány megnyitása olvasásra. while(not eof(f)) do begin Addig él a ciklus, amíg a fájlnak nincs vége. readln(f,s); Beolvasunk az f-ből egy sort s-be. writeln(s); writeln('Az "a"-k szama: ',szamola(s)); A kiírásba meghívjuk a szamola(s) függvényt, ami megszámolja a sorban lévő a betűket és egész számként visszaadja az értéket writeln(' Az "e"-k szama: ',szamole(s)); end; close(f); Bezárjuk az olvasásra megnyitott fájlt. readkey; END.