Делфи... множества

[Asira]

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

uses
  SysUtils;


  var mn1,mn2: set of char;
  s,slovo:string;
i,j,k,ns,ks:integer;
c:char;

begin

mn1:=[];
mn2:=[];

write('inter string ');
readln(s);
while i<= length(s) do begin
while(s[i]=' ')and(i<=length(s)) do i:=i+1;
ns:=i;
while(s[i]<>' ')and(i<=length(s))do i:=i+1; ks:=i;
slovo:=copy(s,ns,ks-ns);
while j<= length(slovo) do
if slovo[j]='b,d,g,j,n,m,r,v,z,w' then    
 for k:=1 to length(slovo) do
mn1:=mn2+[slovo[j]];
for j:=1 to length(slovo) do
mn2:=mn2+[slovo[j]];
mn2:=mn2*['c','f','h','k','l','q','p','s','t','x'];
for c:=chr(0) to chr(255) do
if c in mn2 then write(c,' ');
 end;
readln;
end.

[IT-man]

а вам не кажется что вот это

if slovo[j]='b,d,g,j,n,m,r,v,z,w'

как минимум нескомпилится

[evg_m]

slovo:=copy(s,ns,ks-ns);
while j<= length(slovo) do
if slovo[j]='b,d,g,j,n,m,r,v,z,w' then    
 for k:=1 to length(slovo) do
mn1:=mn2+[slovo[j]];
//for j:=1 to length(slovo) do
//mn2:=mn2+[slovo[j]];
mn2:=mn1;//множество всех букв слова
mn2:=mn2*['c','f','h','k','l','q','p','s','t','x'];
mn1:=mn1*['b,d,g,j,n,m,r,v,z,w'];
if mn1=[] then //не содержат звонких
for c:=chr(0) to chr(255) do
for c:='A' to 'Z' do //латинские строчные
if c in mn2 then write(c,' ');
 end;
readln;

[Asira]

ну допустим это можно записать так
sb:='b,d,g,j,n,m,r,v,z,w'
if slovo[j] in sb then .....

[Alex_FF]

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  Alphabet = ['A'..'Z'];
  SonorousConsonants = ['B', 'D', 'G', 'J', 'N', 'M', 'R', 'V', 'Z', 'W'];
  DeafConsonants = ['C', 'F', 'H', 'K', 'L', 'Q', 'P', 'S', 'T', 'X'];

var
  I, J: Integer;
  S, Word: String;
  OutSet: Set of Char;
  F: Boolean;
  K: Char;
begin
  WriteLn('Enter a line');
  ReadLn(S);
  OutSet := [];
  I := 1;
  while I <= Length(S) do
  begin
    if Upcase(S[I]) in Alphabet then
    begin
      Word := '';
      F := False;
      while (Upcase(S[I]) in Alphabet) and (I <= Length(S)) do
      begin
        if Upcase(S[I]) in SonorousConsonants then F := True;
        Word := Word + S[I];
        Inc(I);
      end;
      if not F then
        for J := 1 to Length(Word) do
          if Upcase(Word[J]) in DeafConsonants then
            OutSet := OutSet + [Upcase(Word[J])];
    end;
    Inc(I);
  end;
  WriteLn;
  WriteLn('Result:');
  for K := 'A' to 'Z' do
    if K in OutSet then Write(K, ' ');
  if OutSet = [] then WriteLn('There are no such letters');
  ReadLn;
  ReadLn;
end.

работает для любого регистра букв и слова могут быть разделены любыми знаками (кроме букв, конечно )