Дана строка символов. 
Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. 
В каждом нечетном по порядку слове поменять местами первый и последний символы.

Добрый день.
В чем проблема?
Нужно просто разделить строку на слова (можно использовать функцией Pos).
Пройтись по словам, выбрать только нечетные по порядку слова, в них поменять первый и последний символы,потом собрать строку из измененных слов.
С уважением, Mike

Этот ответ добавлен с нового Винграда - http://vingrad.com

Есть библиотечная ф-ция function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;.
Вот функция для примера:
///    <summary>
///      Возвращает N-ое слово в строке S, WordDelims - разделдиттели слов
///    </summary>
///    <param name="N">
///      порядок слова
///    </param>
///    <param name="S">
///      исходная строка
///    </param>
///    <param name="WordDelims">
///      разделители слов
///    </param>
///    <returns>
///      Искомое слово
///    </returns>
///    <remarks>
///      Переписанная с использованием ExtractStrings
///    </remarks>
function ExtractWord(N: Integer; const S: string; const WordDelims: String): string;
var
  i, cnt: Integer; // переменная цикла и к-во полученных слов
  sl: TStringList; // список слов
  Separators: TSysCharSet; // набор разделителей
begin
  Separators:=[];
  for i:=1 to Length(WordDelims) do
    Separators:=Separators + [WordDelims[i]];
  sl:=TStringList.Create;
  try
    cnt:=ExtractStrings(Separators, [' '], PChar(S), sl);
    if N <= cnt then
      Result:=sl[N - 1]
    else
      Result:='';
  finally
    sl.Free;
  end;
end;

Думаю нечетное слово из списка TStringList как достать догадаетесь?
Еще подсказка ReverseString для определения последнего символа.


Этот ответ добавлен с нового Винграда - http://vingrad.com