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

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)<=122) then l[s]:=l[s]+1;
if (ord(s)>=224) and (ord(s)<=255) then r[s]:=r[s]+1;
end;
for c:='a' to 'z' do if l[c]>0 then writeln(c,':',l[c]);
for c:='я' to 'я' do if r[c]>0 then writeln(c,':',r[c]);
end.