помогите плиз срочно

дана строка s.
нужно вывести все буквы которые встречаются в ней и их количество.
первая строка входного файла содержит состоящую только из строчных букв англ алфавита строку s,(1<="длина s<=1000)

Язык паскаль