МНОЖЕСТВА ДЕЛФИ

[Asira]

пОМОГИТЕ НАПИСАТЬ ПРОГУ
Дана непустая последовательность слов из строчных латинских букв, слова разделены пробелами. Вывести
Все звонкие согласные, которые входят хотя бы в одно слово, за исключением тех, которые входят в первое и последнее слова.
Мои наброски

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s,slovo:string;
  i,j,ns,ks:integer;
   c:char;
  mn1, mn2,mn3,sb: set of char;
begin
writeln('Enter string ');
readln(s); i:=1;
mn1:=[ ];
 mn2:=[ ];
sb:=['b','d','g','j','n','m','r','v','z','w'];
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);
for j:=1 to length(slovo) do mn1:=mn1+[slovo[j]]; i:=i+1;
mn1:= mn1*sb;
end;
  for c:=chr(0) to chr(255) do
   if c in mn1 then write(c,' ');
 readln;

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