Преобразовать строки, переставив первую букву в конец каждого слова

//Функция во всех словах исходного текста меняет местами первую букву с последней
//и возвращает результат в виде новой строки.
function ProcStr(const aStr : String) : String;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  Ch : Char;
  i, Len, Pos1 : Integer;
begin
  S := aStr;
  Len := Length(S);
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Перестановка букв.
      if i <> Pos1 then begin
        Ch := S[Pos1];
        S[Pos1] := S[i];
        S[i] := Ch;
      end;
    end;
  end;
 
  ProcStr := S;
end;

program Project1;
 
//Функция во всех словах исходного текста меняет местами первую букву с последней
//и возвращает результат в виде новой строки.
function ProcStr(const aStr : String) : String;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  Ch : Char;
  i, Len, Pos1 : Integer;
begin
  S := aStr;
  Len := Length(S);
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Перестановка букв.
      if i <> Pos1 then begin
        Ch := S[Pos1];
        S[Pos1] := S[i];
        S[i] := Ch;
      end;
    end;
  end;
 
  ProcStr := S;
end;
 
const
  Fn1 = 'in.txt';
  Fn2 = 'out.txt';
var
  F1, F2 : Text;
  S : String;
begin
  Assign(F1, Fn1);
  {$I-}
  Reset(F1);
  {$I+}
  if IOResult <> 0 then begin
    Writeln('Не удалось открыть входной файл ', Fn1);
    Writeln('Действие отменено.');
    Readln;
    Exit;
  end;
 
  Writeln('Входной файл: ', Fn1);
 
  Assign(F2, Fn2);
  Rewrite(F2);
  while not Eof(F1) do begin
    (*
     Здесь надо ставить код:
     1. Чтение строки из файла F1 в переменную S.
     2. Обработка строки S с помощью функции ProcStr().
     3. Запись строки S в файл F2.
    *)
  end;
 
  Close(F1);
  Close(F2);
 
  Writeln('Результат записан в файл: ', Fn2);
 
  Readln;
end.

    (*
     Здесь надо ставить код:
     1. Чтение строки из файла F1 в переменную S.
     2. Обработка строки S с помощью функции ProcStr().
     3. Запись строки S в файл F2.
    *)