Множества. Русский алфавит.

[min@y™]

Сделаю за 1999 рублей, сегодня скидки новичкам.

Эльдорадо detected.
5 минут работы, 0 рублей (рекламная акция):

// Функция, выдающая строку отсортированных русских согласных букв,
// отсутствующих в тексте Text.
function GogoBaby(const Text: string): string;
var
  Index: Integer;
  Letters: set of Char;
const
  Template: string = 'БВГДЖЗЙКМНПРСТФХЦЧЩШЪЬбвгджзйкмнпрстфхцчщшъь';
begin
  Letters:= [];
  
  for Index:= 1 to Length(Template) do
    Include(Letters, Template[Index]);
    
  for Index:= 1 to Length(Text) do
    Exclude(Letters, Text[Index]);
    
  Result:= '';
  for Index:= 1 to Length(Template) do
    if Template[Index] in Letters
      then Result:= Result + Template[Index];
end;

[Serge_Bliznykov]

можно и так:

CONST
  SoglRus : set of char = [ 
     'Б','В','Г','Д','Ж','З','Й','К','Л','М','Н',
     'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ь'];

var
 s : string;
 i : integer;
 Letters : set of char;
 ch : char;
begin
  WriteLn('Введите исходную строку:');
  Readln(s);
  s := AnsiUpperCase(s);

  Letters := [];

  for i:=1 to Length(s) do Include(Letters, s[i]);

  Letters := SoglRus-Letters;

  if Letters=[] then WriteLn('Таких букв нет!')
  else begin
    Write('Cогласные буквы, которые не входят ни в одно слово: ');
    for ch:=#0 to #255 do
       if ch in Letters then Write(' ',ch,' ');
    WriteLn
  end;
  Readln  
end.