Листинг программы

program z5;

{ Дан текст. Найти все палиндромы (т.е. слова-перевертыши) в этом тексте.}

uses crt;

var

   b,a,k: string;

   i,j,q: longint;

   c: array[1..30] of string;

begin

  clrscr;   {очищаем дисплей}

  write('Ведите текст разделенный пробелами: ');

  readln(a); {чтение введенного текста}

  b:='';  {инициализация переменных}

  j:=1;

  k:='';

  for i:=1 to length(a) do if (a[i]=' ') then begin  {ищем пробелы в тексте}

                               c[j]:=b; {если есть ' ', то }

                              inc(j);  { запоминаем слово }

               b:='';

                        end else b:=b+a[i]; c[j]:=b;

   for i:=1 to j do begin {проверяем, является ли слово палиндромом}

                      b:=c[i];

                      k:='';

                      for q:=1 to length(b) do k:=b[q]+k;

                      if b=k then writeln(b);  {сравнение и вывод результата}

                    end;

 write('Нажмите любую клавишу...'); readln;

end.