<Uzh.Soft/>

1. function getCharCountFromFile(fname : string, findChar : char) : integer;
2. var   
3.             ch : char;
4.             infile : text;
5.             count : integer;
6. begin
7.             count := 0;
8.             reset( infile, fname );    
9.             while not eof( infile ) do
10.                 begin
11.                    read( infile, ch );
12.                    if (ch=findChar) then
13.                        Inc(count);
14.                 end;
15.             close( infile );
16.             getCharCountFromFile := count;
17. end;