Декодирование на паскаль

[virus77724]

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

Program pods4et;
var
   f    : text;
   ch   : char;
   count: array[char] of longint;
   ksm,i: integer;
   begin
for ch := low(char) to high(char) do
count[ch] := 0;
assign(f, 'text.txt');
ksm:=0;
reset(f);
while not eof(f) do
for i:=1 to length(ch) do
   begin
ksm:=ksm+length(ch);
read(f, ch);
inc(count[ch]);
   end;
   close(f);
for ch := low(char) to high(char) do
if count[ch] > 0 then
writeln('Символ ',ch,' повторяется ', count[ch],' раз');
writeln('Всего количество символов в файле=',ksm);
readln;
end.

[virus77724]

Забыл приложить скриншот отображения

[FPaul]

Попробуйте изменить кодировку файла 'text.txt' с cp866 на cp1251 (или наоборот).
Сменить можно в текстовом редакторе, открыв, а потом сохранив в нужной кодировке.

[Serge_Bliznykov]

согласен с FPaul, Вы с кодировкой ошиблись.

дополнительно.
а что за цикл от 1 до 1 ?!

for i:=1 to length(ch) do

ch - это один символ, зачем тут цикл?!