Символьные переменные. Строки. Паскаль

[Oda33]

. Дана последовательность слов. Напечатать те слова последовательности. Которые отличны от первого слова и удовлетворяют следующему свойству:
а) в слове нет повторяющихся букв;
б) слово симметрично


помогите пожалуйста решить)

[Stilet]

в слове нет повторяющихся букв;

Используй функцию:

 function a1(s:string):boolean;
 var i,e:integer;
 begin
  a1:=false;
  for i:=0 to length(s) do begin
   e:=pos(s[i],copy(s,i+1,length(s)));
   if e<>0 then begin a1:=true;exit;end;
  end;
 end;

она укажет есть ли в слове повторяшки

б) слово симметрично

Функция

 function a2(s:string):boolean;
 var i,e:integer;
 begin
  a2:=true;
  for i:=1 to (length(s) div 2) do begin
   if s[i]<>s[length(s)-i+1] then begin
    a2:=false;exit;
   end;
  end;
 end;

Даст Труе если слово - палиндром.

Используй их в цикле проходе по последовательности.

[Oda33]

Спасибо большое =)