Pascal Для каждого символа текста указать его относительную частоту появления в тексте

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

[alexander13]

Из-за разрыва в размещении русских букв в таблице ASCII это будет работать неправильно (касательно русских букв, по крайней мере)

 65..90,128..159:begin
       s[i]:=chr(ord(s[i])+32);
       inc(a[ord(s[i])]);
       end;

С латинскими буквами работает правильно?
Относительная частота появления - это количество появлений данной буквы к общей длине текста.

Upd.
Остальной код пока не смотрел. Сначала разберемся с кириллицей.

[student___]

с латинскими все считает кроме буквы " а "

[alexander13]

Можно пример входных данных, где считается неправильно?

Upd.
Если пока оставить вопрос о частоте появлений и заставить программу просто считать символы, то это будет что-то типа

uses 
	CRT;

	var 
	t: text;
    s: string;
    a: array [0..255] of integer;
    k, b, i, max:integer;
  
BEGIN  
	clrscr;
    k:=0;
    assign(t,'1.txt');
    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:inc(a[ord(s[i])]);
				65..90:begin
					s[i]:=chr(ord(s[i])+32);
					inc(a[ord(s[i])]);
				end;
			end;
		end;
	end;
 
 
	for i:=32 to 255 do
		if  a[i]<>0   then 
			writeln(chr(i),' - ',a[i]);

	close(t);
	readln;
END.

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

[student___]

к сожалению с русскими буквами работаю вслепую, мой паскаль вместо них выдает нечто ужасное.

[alexander13]

Еще раз объясняю насчет русских букв: посмотрите на ЭТУ ТАБЛИЦУ
Видите, как они расположены? Если Вам в тексте встретится буква 'С', то тут уже не прокатит прибавить 32 и получить 'с'.

И я, кажется, говорил, что сначала нужно разобраться с латинскими буквами. А добавить обработку кириллицы - это дело второе.

[student___]

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

[alexander13]

Собственно, если Вас интересуют русские буквы, то Вам нужна расширенная таблица ASCII (которая справа по моей ссылке).
Программа-то в итоге работает для латинских букв?

[student___]

"а" не считает

[student___]

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