работа с файлами: дан символьный файл f содержащий произвольный текст. получить 10 наиболее часто встречающихся букв

[Кристя777]

дан символьный файл f содержащий произвольный текст. получить 10 наиболее часто встречающихся букв и число их появления.

не могу разобраться.с цифрами намного проще по мне так...помогите...
код вроде сделала для цифр,а как его для символов(букв) переделать?

program kris6;
uses crt;
var
   name: string;
   i,j: integer;
   f:text;
   m:array [1..10] of integer;
    begin
         name:='data.txt' ;
         if (file Exsists (name)) then
          begin
          assign (f,name);
          reset (f) ;
          i:= 1;
           while not EOF (f) do
           begin
           read (f, m[i]);
           i:=i+1;
           end;
close(f);
name:='out.data.txt';
assign(f,name);
rewrite (f);
for i=i-1 downto 1 do
begin
     write (f,m[i],ij);
     end;
     close (f);
     end.
else ('файл не существует');
end.

[Serge_Bliznykov]

if (file Exsists (name)) then

уже по этой строчке видно, что код ваш написан в блокноте и не компилируется в Паскаль.

а по сути решения задачи, рекомендую завести массив счётчиков и тупо наращивать нужный элемент при обнаружении очередного подходящего символа.
Только Вам нужно будет ответить себе на вопрос: что для Вас является "буквой" в данной задаче: латиница, кириллица или что-то ещё...
После заполнения массива счётчиков его нужно отсортировать по убыванию и взять 10 верхних элементов.
всё.

[blackstrip]

Даже если пропустить ошибки в тексте кода, то там сначала идет объявление массива из 10 элементов

m:array [1..10] of integer;

А потом вы читаете из файла в m[i]-тый элемент.

          i:= 1;
           while not EOF (f) do
           begin
           read (f, m[i]);
           i:=i+1;
           end;

Соответственно после 10-го байта будет попытка прочитать в m[11], а их всего десять элементов было заявлено. И программа отвалится с ошибкой.

А потом цикл еще страшнее:

for i=i-1 downto 1 do
begin
     write (f,m[i],ij);
     end;

Кто такой ij, и зачем вы в обратном порядке ранее прочитанные 10 байт (или больше) хотите записать в другой файл.

Похоже это просто побитый опечатками код для задачи "прочитать файл размером не более 10 байт и записать его содержимое в другой файл в обратном порядке", взятый у одноклассника/курсника =)