Здравствуйте, bodya!
Как-то ТАК... Можешь процедуру перенести в основную прогу...
{Дана строка из строчных русских букв. Между соседними словами - запятая, за последним словом - точка.
Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово.}
[code lang=pascal]program Sogl_No;

procedure Task;
const
t1: set of char = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
var
s, t: string;
i: integer;
begin
readln(s);
i := pos('.', s);
delete(s, i, length(s) - i + 1);
s := s + ',';
t := s;
for i := ord('а') to ord('я') do {for each char}
if not (chr(i) in t1) then
begin
while pos(',', s) <> 0 do
if pos(chr(i), copy(s, 1, pos(',', s))) = 0
then delete(s, 1, pos(',', s))
else break;
if s = '' then write('', chr(i));
s := t;
end;
end;

begin
Task;
writeln();
writeln('Нажмите Enter -> для выхода');
readln;
end.[/code]
Ответ не верный:
20 букв передают согласные звуки (б, п, в, ф, д, т, з, с, ж, ш, ч, ц, щ, г, к, х, м, н, л, р)
10 букв передают гласные звуки (а, э, о, ы, и, у, я, е, ё, ю)
33-и буквы не равно 20+10

Здравствуйте, bodya!
Можно так: