Это не вопрос, можно не заходить))

program abc;
var r: array ['а'..'я'] of integer;
l: array ['a'..'z'] of integer;
i: integer;
s: string;
c: char;
begin
readln(s);
for i:=1 to length(s) do
begin
if (ord(s)>=97) and (ord(s)=224) and (ord(s)0 then writeln(c,':',l[c]);
for c:='я' to 'я' do if r[c]>0 then writeln(c,':',r[c]);
end.