{Файл: prog7_1.pas
Задача:
  Найти в строке все слова-палиндромы.
Автор:
  Башмаков Максим Дмитриевич, ИТ-11
Дата:
  03,11,2015}

const
  Letter : set of char=['a'..'z','а'..'я']; {ножество букв}
var
  s, w: string;
 k, p: integer;
  i, L, w1, j : integer;
  
  begin
  {Ввод строки}
  writeln('Введите строку');
  readln (s);
  
  {нахождение первого слова}
  L:=length(s); {Длинна строки}
  p:=0;
  i:=1; {Индекс для прохода по строке}
  
  while i<= l do {Пока не конец строки}
    begin
    k:=0;
      {Пропуск все символы, не являются буквой}
      while (i<=L) and not (s[i] in Letter) do
        inc (i);
        
     {Выделение по буквам слово w}
     w:='';
     while (i<=L) and (s[i] in letter) do 
      begin
        w:=w+s[i];
        inc(i);
      end;
         
    w1:=  length(w);
    if w1>1 then
      begin
        p:=w1 div 2;
        
        for j:=1 to p do
            if w[j]<>w[w1+1-j] then
              inc (k);
        if k=0 then
          write (w,' ');
          
      end;
      end; 
      
end.