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

var
  a,b:string;
  c:set of char;
  d:integer;
  z:array[0..255]of byte;
begin
  {вводим строку}
  repeat
    write('Enter string:');
    readln(a);
  until pos('.',a)>0;
  {удаляем точку и все что после неё, вместо точки записываем запятую}
  delete(a,pos('.',a),length(a)-pos('.',a)+1);
  a:=a+',';
  {сбрасываем счетчик слов с нужными буквами}
  for d:=0 to 255 do
    z[d]:=0;
  {в цикле проверяем всю строку}
  writeln;
  while length(a)>0 do
    begin
      {выделяем первое слово и удаляем его}
      b:=copy(a,1,pos(',',a)-1);
      delete(a,1,pos(',',a));
      writeln(b);
      {сбрасываем множество}
      c:=[];
      {вцикле формируем множество букв текущего слова}
      while length(b)>0 do
        begin
          c:=c+[b[1]];
          delete(b,1,1);
        end;
      {умножая множество на множество, в первом оставляем только нужные буквы}
      c:=c*['a'..'z'];
      {увеличиваем счетчик букв в словах}
      for d:=0 to 255 do
        inc(z[d],ord(chr(d)in c));
    end;
  {выводим результат работы}
  for d:=0 to 255 do
    if z[d]=2 then write(chr(d):2);
  readln;
end.