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

var s,s1,s2,st1,st2:string; i:integer; mn:set of char; b:boolean;beginwriteln('Введите текст:');readln(s);s:=s+' ';st1:=''; st2:='';s1:=''; s2:=''; mn:=[]; b:=false;while pos('  ',s)>0 do delete(s,pos('  ',s),1);for i:=1 to length(s) do if s[i]<>' '  then begin        s1:=s[i]+s1;       s2:=s2+s[i];       if s[i] in mn then b:=true;       mn:=mn+[s[i]];       end  else begin       if s1=s2 then st1:=st1+s1+' ';       if not b then st2:=st2+s2+' ';       s1:=''; s2:=''; mn:=[]; b:=false;       end;if st1<>'' then writeln('Слова-перевёртыши: ',st1) else writeln('Слов-перевёртышей нет');if st2<>'' then writeln('Слова без повторяющихся букв: ',st2) else writeln('Слов без повторяющихся букв нет');end.Пример:Введите текст:заказ слово комок  пробел след пример огонь текстСлова-перевёртыши: заказ комок Слова без повторяющихся букв: пробел след 

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString('>').ToWords;  a.Where(w->w=w.Inverse).Println;  a.Where(w->w.Distinct.Count=w.Length).Println;end.Пример> Наша хата не кабак кто не в хате тот чудаккабак в тотне кто не в хате чудак