Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/

uses crt;
    var a,s,a1:string;
        i,j,k:integer;
        mn:set of char;
        mn1:set of char;
    begin    clrscr;
    j:=0;
    writeln('Введите строку: ');
    readln(a);
    mn:=['*','/',',','-'];
    mn1:=['b'..'k'];
 
for i:=1 to length(a) do
if a[i] in mn then
      inc(j);
      writeln('Кол-во символов: ',j);
 
 writeln('Слова в которых есть буквы множества mn1: ');
  a:=a+'*'; a1:='';
for  i:=1 to length(a) do
  begin
    if not (a[i] in mn) then
           a1:=a1+a[i]
       else
         begin
           k:=1;
           if  (a1[k] in mn1)
             then writeln(a1)
             else
           While (k<=length(a1)) and not(a1[k] in mn1) do
             begin
               k:=k+1;
               if a1[k] in mn1 then
                 writeln(a1);
             end;
            a1:='';
          end;
    end;
  readln
end.