Составьте программу позволяющую найти количество цифр во введённой строке s

а не знаешь как будет программа позволяющая выяснить сколько раз встречается каждая буква алфавита во веденной строке s пример август ответ кол букв а=1 кол букв б=0 и так до я

Count:=0;for i:=1 to Length(St) do if Ord(St[i]) in [48..57] then Inc(Count);Writeln(Count);