задача "на файл" Опции

[влад]

Возможно эта задача кому-то покажется смешной, но..
В задаче требуется найти символ в текстовом файле, кот. повторяется чаще остальных. Нужно вывести этот символ и количество его повторений.

Я так понимаю здесь потребуется воспользоваться таблицей ASCII ?

[volvo]

var
  arr: array[char] of integer;
  ch: char;
  { откроешь файл }
  ...
  while not eof(f) do begin
    read(f, ch); inc(arr[ch]);
  end;

потом просто найдешь максимум в массиве arr и выведешь на печать сам символ и его индекс...