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

[влад]

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

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

[volvo]

я так понял, мы "переписываем" символы из файла в массив для дальнейшей работы с ними.

Неправильно понял. Мы для каждого символа, принадлежащего к типу Char сразу подсчитываем количество повторений. Полностью программа выглядит так:

var
  f: text;
  arr: array[char] of integer;
  max_i, i, ch: char;

begin
  assign(f, 'a.txt');
  reset(f);
  while not eof(f) do begin
    read(f, ch); inc(arr[ch]);
  end;
  close(f);

  {
    количество вхождений каждого символа уже подсчитано
    теперь найдем максимум из этих чисел...
  }
  max_i := #0;
  for i := #0 to #255 do
    if arr[max_i] < arr[i] then max_i := i;

  writeln('char: ', max_i, ' count: ', arr[max_i]);

end.