Строка символов, Работа со строками Опции

[Гость_Рада]

Дана строка символов. Изменить строку – во всех словах с четным номером поменять местами первый и последний символы. Слова ограничены одним или несколькими пробелами. Порядок ввода исходных данных: - исходная строка. Порядок вывода результатов: - новая строка.
Преобразовать обработку строки в процедуру (или функцию). Написать к ней тестовую программу.
Созданную процедуру использовать для построчной обработки текстового файла (Text). Результат обработки записывается в новый файл того же типа.

[volvo]

Попробуйте разобраться в работе этой функции:

Код

function getToken(delim: char; var s: string): string;
 var p: byte;
begin
 getToken := '';
 p := pos(delim, s);
 if p <> 0 then
   begin
     getToken := Copy(s, 1, pred(p));
     delete(s, 1, p); exit
   end;
 getToken := s; s := ''
end;

const
 st : string = 'what is  your name';
var
 sTok: string;
 p: byte;

begin
 repeat
   p := pos('  ', st);
   if p > 0 then
     begin
       delete(st, p, 1);
     end;
 until p = 0;

 while st <> '' do
   begin
     sTok := getToken(' ', st); writeln(sTok);
   end;
end.

Как Вы думаете, для чего предназначена функция getToken, что именно она делает?