Программа

USES Crt;                 { Подключение модуля Crt }
VAR FileName:string[79];  { Имя файла }
    F:text;               { Файл }
    Symbol:char;          { Искомый символ }
FUNCTION Meter(var F:text;Symbol:char):integer;
                     { Функция подсчета количества символов Symbol в файле F }
  Var MeterBuf:integer;  { Счетчик }
      SymbolBuf:char;    { Читаемый из файла символ }
  Begin
    MeterBuf:=0; { Сброс счетчика }
    Reset(F);    { Открытие файла для чтения }
    while not EOF(F) do
      begin
        Read(F,SymbolBuf);  { Чтение символа из файла }
        if SymbolBuf=Symbol { Если прочитанный символ совпадает с исходным }
          then Inc(MeterBuf){ то подсчет количества символов }
      end;
    Close(F);          { Закрытие файла }
    Meter:=MeterBuf   { Определение значения функции }
  End;
BEGIN
  ClrScr;                       { Очистка экрана }
  Write('Введите имя файла ');  { Вывод приглашения ввести имя файла }
  ReadLn(FileName);             { Ввод имени файла }
  Assign(F,FileName);        { Связывание файловой переменной с именем файла }
  Symbol:=ReadKey;  { Чтение символа с клавиатуры }
  while Symbol<>#27 do
    Begin
      WriteLn('В файле ',FileName,' символов "',Symbol,'" ',Meter(F,Symbol));
      Symbol:=ReadKey  { Чтение символа с клавиатуры }
    End
END.