Множества, как это ни банально... Опции

[RIDDICK]

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

1) все согласные буквы, которые не входят ни в одно слово.
2) все звонкие согласные буквы, которые входят болеее чем в одно слово.

гласные: аеиоэюяуы
йьъ - это то что не входит в согласные
звонкие - бвгджзлмнр
глухие - кпстфхцчщш

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

[hiv]

Нет, вот так:

uses crt;
const
 GL = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я', 'ь', 'ъ', 'й'];
 SOGL = ['а'..'п','р'..'я'] - GL;
var
 Found: set of char;
 s: string; i: byte;
 lett: char;
begin
 clrscr;
 Found:=[];
 write('s = '); readln(s);
 for i := 1 to length(s) do
  if s[i] in SOGL Then Found := Found + [s[i]];

 For lett := 'а' to 'я' do
  if (lett in SOGL)and (not(lett in Found)) then
   write(lett, ' ');
 readln
end.

Между буквами п и р в DOS кодировке существуют еще не русские символы.
Переменную Found нужно инициализировать. Паскаль - это не Басик!
И проверять нужно переменную lett, что она согласная!