Решение задач на Pascal. Задача на множества

Постановка задачи: Дана непустая последовательность слов из строчных русских букв, между соседними словами запятая или пробел, за последним словом - точка. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечетное слово и не входят хотя бы в одно четное.

Код программы

Схема алгоритма