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

[tdsotm]

var
  a, b: string;
  i: Byte;

begin
  write('vvedite stroku');
  readln(a);
  b := '';
  for i := 1 to Length(a) do b := a[i] + b;
  if a = b then write('da')
  else write('Net');
  
end.

Смог написать только для слова, мне надо для строки в которой будет несколько слов, подскажите алгоритм поиска или допишите программу.

[min@y™]

какая IDE?

[Stilet]

А скорее всего ПаскальАБЦ.

[min@y™]

Сообщение от Stilet

А скорее всего ПаскальАБЦ.

не надо про говно, его и так полно в нашей жизни.

[Stilet]

Что поделаешь. Минобразования совсем необразованные стали...

[min@y™]

Минобразования совсем необразованные стали...

сомневаюсь, что в минобразах слыхали про абц. всё на уровне кафедр, не выше.
имхо, изучать лазарусЪ сильно полезнее.