Типизированные файлы

[qwertytol]

Плиз очень нужна ваша помощь решить эту задачку.

Организовать файл символов из N компонент. Определить символ, встречающийся в файле наиболее часто. Вывести на экран этот символ и его количество в файле.

ps Забыл написать что нада на Паскале

[Stilet]

Организовать файл символов из N компонент

var f:file of char;

Определить символ, встречающийся в файле наиболее часто

var a:array['A'..'Z'] of integer; max,c:char;
...
while not eof(f) do begin
  readln(f,c);
  a[c]:=a[c]+1;
  if a[c]>a[max] then max:=c;
end;

Наиболее частый символ в max

p.s. не проверял.

[qwertytol]

Вот че получилось

uses CRT;
Type
    fail=file of char;
var
    f:fail;
    max,c: char;
    a: array ['a'..'z'] of integer;
    n,i:integer;

begin
clrscr;
  assign (f, 'd:\file.dat');
  rewrite (f);
   write ('vvedite kol-vo simvolov v vaile: ');
    readln (n);
  for i:=1 to n do begin
    write('vvedite ',i,' simvol = ');
    readln(c);
    write (f, c);
  end;
  close (f);

  reset (f);
  while not eof(f) do begin
     read (f, c);
     a[c]:=a[c]+1;
   if a[c]>a[max] then max:=c;
  end;
  writeln('samiy chastiy ',max);

readkey;
end.

Она не выводит сколько раз символ встречался и если все символы по одному разу он выводит первый символ.
PS И мне препод сказал что надо в этой программе с файла записать в массив потом отсортировать массив и записать в файл а потом считать символы. А как это сделать, неподскажите