[Asira]

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

Код:

{$APPTYPE CONSOLE}

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;