Найти в строке все слова, которые состоят из заданного набора символов

uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var s,s1:string;
    n,i,j,k:byte;
    zs,m:set of char;
    c:char;
begin
writeln('Введите строку');
readln(s);
s:=' '+s;{добавим пробел в начало}
n:=length(s);
writeln('Задайте набор символов, вводите в строку без пробелов, окончание ввода Enter');
zs:=[];
repeat
c:=readkey;
write(c);
zs:=zs+[c];
if c=#13 then writeln;
until c=#13;
writeln('Слова, состоящие из символов данного набора');
i:=2;
while i<=n do
if not(s[i] in rz)and (s[i-1] in rz) then{если не разделитель
                                и перед ним разделитель, то начало слова*}
 begin
  k:=i;
  s1:='';
  while (k<=n) and not(s[k] in rz) do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  m:=[];
  for k:=1 to length(s1) do
  m:=m+[s1[k]];
  if m-zs=[] then
   begin
    writeln(s1);
    j:=1;
   end;
  i:=i+length(s1);
 end
else i:=i+1;{пропускаем разделители}
if j=0 then write('Нет слов, состоящих из заданного набора');
end.