Паскаль, строки

[Паскалька^^]

Как определить сколько раз каждая буква встречается в строке?

[Gapro]

Можно так - Запись Из 2 значений - Номер символа и кол-во раз, когда он встретился. И цикл на проверку.

[russian-stalker]

program Project2;
var
i,n:integer;
s:string;
begin
readln(s);
for i:=ord('A') to ord('z') do
begin
n:=0;
while pos(chr(I),s)<>0 do
begin
inc(n);
delete(s,pos(chr(I),s),1);
end;
if n<>0 then
writeln(chr(i),' - ',n);
end;
readln;
end.

[Паскалька^^]

наверное, я некорректно сформулировала вопрос..
допустим, есть строка, точнее даже слово 'сопроцессор'.
и надо найти сколько конкретно раз какая-либо буква повторяется.
Например, с - 3 раза, о - 2 раза, р - 2 раза и тд.

[russian-stalker]

Ну моя программа примерно то и делает, только же русских символов нету в консольном приложении.

[Паскалька^^]

что-то у меня Ваша программа совсем не работает(

[Паскалька^^]

ой, извиняюсь, всё работает! спасибо!

[russian-stalker]

Проверил на Turbo Pascal и Delphi(console application) всё прекрасно работает