function getCharCountFromFile(fname : string, findChar : char) : integer; var ch : char; infile : text; count : integer; begin ... Читать дальше »