Множество: напечатать все звонкие согласные, которые есть в больше чем в одном слове

Используя множество Pascal : Задано непустую последовательность слов в строчке, между словами "," в конце строчки "." , напечатать в алфавитном порядке все звонкие согласные , которые есть в больше чем в одном слове.