Прошу помочь с исправлением ошибок в программе, Для каждого символа заданного текста указать его относительную частоту Опции

[student___]

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

 
Program chast;
uses crt;
var t: text;
    s: string;
    a: array [0..255] of integer;
    k, b, i, max:integer;
  BEGIN  clrscr;
    k:=0;
    assign(t,'int.pas');
    reset(t);
      while not (eof(t)) do
         begin
     
           readln(t,s);
             for i:=1 to length(s) do
               begin
                inc(k);
                  case  ord(s[i]) of 97..122,224..255:inc(a[ord(s[i])]);
                                          65..90,128..159:begin
                                                                  s[i]:=chr(ord(s[i])+32);
                                                                  inc(a[ord(s[i])]);
                                                                 end;
                  end;
               end;
 
    writeln('Относительная частота повторений символов в тексте');
    writeln;
    max:=0;
      for i:=32 to 255 do
          if  a[i]<>0   then   begin
                                       writeln(chr(i),'-','частота',(a[i]/100*k): 3 :2,'',' % ',
                                       ' встречается в тексте ',a[i],' раз(а)');
             if a[i]>max then begin
                                    max:=a[i] ;
                                    b:=i
                                   end;
                                  end;
   end;
writeln;
writeln;
writeln('всего символов - ',k, '  больше всего встречается-',chr(b),'  ',  max,' раз(а)');
close(t);
readln;
end.

[Федосеев Павел]

Да-а-а, что-то я запамятовал о различии кодов прописных и строчных букв.
Тогда, наверное нужно сделать

Код

  MyABC:=['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я'];
...................
      if s[i] in MyABC then
        inc(a[ord( MyLoCase(s[i]) )]);

А ранее определить процедуру MyLoCase(c: char): char, которая будет переводить символы в "нижний" регистр. Для латинских символов она уже есть стандартная, а для русских придётся самостоятельно добавить

Код

function MyLoCase(c: char): char;
begin
  case c of
    'a'..'z', 'A'..'Z': MyLoCase:=locase(c);
    'а'..'я', 'А'..'Я': MyLoCase:=........ что-то своё
  else
    MyLoCase:=c;
end;

И ещё, я не совсем понял что там считается не так. Если можно покажи код, тестовый файл и ожидаемый результат. Смею предположить, что перед использованием массива a его нужно обнулять.