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

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.