Написать программу в turbo pascal

Ввести строку символов. Напечатать гласные русские буквы в алфавитном порядке с указанием числа их появления в строке. Отдельно напечатать отсутствующие гласные

---------------------------------------------------------------------------------

условия:

- с использованием переменных типа множество

-При печати значений элементов множеств используйте операцию X in А