Значит так:
если слова уже занесены в массив - просто проходим по всему массиву и проверяем, для каких элементов выполняется условие:
Код
if isPalindrom(arr[i]) and (arr[i] <> arr[n]) then
{ распечатать слово }
(arr - массив, содержащий слова, N - количество слов в массиве...)
Реализация функции isPalindrom есть в
FAQ: Строки. Если же исходная последовательность задана в виде строки (не разбитой на слова), то предварительно применяем к ней функцию GetWords (разбивающую строку на слова, тоже из FAQ)...
P.S. В следующий раз пользуйтесь поиском и смотрите в FAQ...