Дан текстовый файл. Найти количество вхождений данного символа в текстовом файле. На паскале! ​

var x,s:string;

   f:Text;

   path:string = 'f:\file.txt';

   i, counter:integer;

begin

   write('Какой символ искать: '); readln(s);

   x:='';

   assign(f, path);

   reset(f);

   while not eof(f) do begin

       while not eoln(f) do begin

           readln(f, x);  

           for i:=1 to Length(x) do begin

               if x[i] = s then inc(counter)

           end;

       end;

   end;

   write('Количество таких символов в файле: ', counter);

end.