Программа печатающая слова, которые симметричны, отличны от первого слова и не имеют повторяющихся букв

program zadanie_4;
var i: integer;
s,p: string;
 begin
  writeln('Данная программа напечатает только те слова последовательности, которые симметричны и не имеют повторяющихся букв.');
  writeln('Введите строку: ');
  readln(s);
  writeln('Идет вычисление...');
  writeln('**********РЕЗУЛЬТАТ***********');
  i:=i+1;
for i:=1 to length(s) do
s:=' '+s+' ';
p:=s[1];
for i:=2 to length(s)-1 do
begin
if
 (s[i-1]=' ')and (s[i]<>' ')and(s[i+1]=' ')and(s[i]<>p) then 
 if s[i] in ['A'..'Z']  then write(s[i],' ') else
 if s[i] in ['a'..'z'] then write(s[i],' ') else
 if s[i] in ['А'..'Я'] then write(s[i],' ') else
 if s[i] in ['а'..'я'] then write(s[i],' ')
 else write('')
  else write('')
end;
writeln(' ');
writeln('Готово. Для выхода нажмите клавишу ENTER.');
end.

var s, w, t: string;
    b: boolean;
begin
  writeln('Введите строку:');
  readln(s);
  s := s + ' ';
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
  if s[1] = ' ' then delete(s, 1, 1);
  if length(s) = 0
    then writeln('Строка не содержит слов.')
    else begin
      writeln('Результат:');
      w := copy(s, 1, pos(' ', s));
      delete(s, 1, pos(' ', s));
      b := true;
      while length(s) > 0 do
        begin
          t := copy(s, 1, pos(' ', s));
          delete(s, 1, pos(' ', s));
          if (length(t) = 2) and (w <> t)
            then begin
              write(t);
              b := false
            end
        end;
      if b
        then begin
          writeln('<Слова, отличные от первого слова, симметричные');
          write('и не содержащие одинаковых букв, не райдены>')
        end
    end;
  writeln;
  write('Нажмите <Enter> для выхода из программы.');
  readln
end.