Mnogo ti se e spqlo kato si otgowarql:
Ако под честота се разбира колко пъти се среща една буква в даден текст, решението е едноредово:

var F : array [0..255] of integer;
i: integer;
Txt: string;

fillchar (f,255*sizeof(integer),#0)
// тука слагаш въвеждането на Txt
for i:=1 to length (Txt) do Inc (F [ord (Txt )]);
// тука изплюваш резултата

И накрая, "Благодаря",цветя и бонбони не пием!

------------------------------
I got a COMPILER, and I'm not afraid to use it!