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

[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.

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

Добавь в начале программы обнуление элементов массива a - это ОБЯЗАТЕЛЬНО.
Инкремент inc (a[ord (s[i])]) выполняй после проверки вхождения символа в ['a'..'z']

Отформатируй код.Автоматические форматтеры

Улучшить код, конечно, можно. Но на данном этапе обучения, я боюсь тебя запутать.
Например,
- интересующие символы в if использовать в виде константы if s[i] in MyABC then
- убрать неиспользуемые модуль CRT, переменную k
- закрывать файл сразу после использования - после цикла while
- добавить обработку кириллицы применительно к конкретной кодовой странице (CP866 или CP1251)

Сообщение отредактировано: Федосеев Павел - 14.04.2013 21:43