произвести статистический анализ встречающихся символов на Делфи

[ILeto]

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

[alex_fcsm]

uses crt;
var st,sample:string;
    a:array[1..33] of byte;
    i:integer;
begin
clrscr;
sample:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
writeln('Input string');
readln(st);
for i:=1 to 33 do
 a[i]:=0;
for i:=1 to length(st) do
 if pos(st[i],sample)<>0 then inc(a[pos(st[i],sample)]);
writeln;
for i:=1 to 33 do
 begin
 writeln(sample[i],'-',a[i]);
 end;
end.

P.S. Правда это на Паскале, но переделать под себя не составит труда???

[Neymexa]

Сообщение от alex_fcsm

uses crt;
var st,sample:string;
    a:array[1..33] of byte;
    i:integer;
begin
clrscr;
sample:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
writeln('Input string');
readln(st);
for i:=1 to 33 do
 a[i]:=0;
for i:=1 to length(st) do
 if pos(st[i],sample)<>0 then inc(a[pos(st[i],sample)]);
writeln;
for i:=1 to 33 do
 begin
 writeln(sample[i],'-',a[i]);
 end;
end.

P.S. Правда это на Паскале, но переделать под себя не составит труда???

Спасибо в любом случае

Cgf