Множества

[Asira]

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

{$APPTYPE CONSOLE}
    uses
  SysUtils;

var s,slovo,slovo1,slovo2:string;
  k,i,j,ns,ks:integer;
   c:char;
  mn1, mn2,mn3,sb: set of char;
begin
writeln('Enter string ');
readln(s);
sb:=['b','d','g','j','n','m','r','v','z','w'];
while (s[i]=' ') and (i<=length(s)) do
i:=i+1;
while(s[i]<>' ') and (i<=length(s)) do i:=i+1;
begin
mn1:= mn1 +[s[i]];
i:=i+1;
end;
i:=length(s);
while(s[i]=' ') and (i>0) do i:=i-1;
while(s[i]<>' ') and(i>0) do i:=i-1;
begin
mn2:=mn2+[s[i]];
i:=i-1;
end;
while i<=k do
begin
while(s[i]=' ') and (i<=k)do i:=i+1;
ns:=i;
while(s[i]<>' ') and (i<=k) do i:=i+1;
ks:=i;
slovo:=copy(s,ns,ks-ns);
for j:=1 to length(slovo) do
mn3:=mn3 +[slovo[i]];
end;
mn3:=mn3*sb -mn2 -mn1;

for c:=chr(0) to chr(255) do
if c in mn3 then write(c,' ');
readln;
end.