Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). в основной программе написать подпрограмму, определяющую является ли слово палиндромом.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);

begin
  var s:=ReadlnString('>');
  Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.

Тестовое решение
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3