Функция меняющая буквы местами?

[XerSon]

Как реализовать такую функцию?
Чтобы при выполнении функции, первая и последняя буквы в словах были на месте!

Вот пример:
По рзелульаттам илссеовадний одонго анлигйсокго унвиертисета,
не иеемт занчнеия, в кокам пряокде рсапожолены бкувы в солве.
Галвоне, чотбы преавя и пслоендяя бквуы блыи на мсете.Осатьлыне
бкувы мгоут селдовтаь в плоонм бсепордяке, все-рвано ткест чтаитсея
без побрелм. Пичрионй эгото ялвятеся то, что мы не чиатем кдаужю
бкуву по отдльенотси, а все солво цликеом

[BOGGAD-BS]

Попробуй разобрать текст в массив:

var letters:array of string; i,len:integer;
begin
     len:=Length(MyText)
     SetLength(letters,Len);
     for i:=1 to Len do
          letters[i]:=MyText[i];
          { меняем местами элементы массива 
               И преобразуем их опять в текст}
     MyText:='';
     for i:=1 to Len do
          MyText:=MyText+letters[i];
end;