Что нужно поменять что бы программа меняла местами слова первое с последним второе с предпоследним и т.д?

program Project1;
const
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S, Sw : String;
  i, Len, Cnt, CntMid : Integer;
  CntW, LenW, LenW1, P1, P2 : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Len := Length(S);
    //Подсчёт количества слов.
    Cnt := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем конец слова и выполняем подсчёт.
      if (i = Len) or (S[i + 1] in D) then Inc(Cnt);
    end;
 
    //Если количество слов чётное, то переставляем слова.
    if Cnt mod 2 = 0 then begin
      CntW := 0;
      LenW := 0;
      LenW1 := 0;
      P1 := 0;
      //Перебор символов строки слева - направо.
      for i := 1 to Len do begin
        //Пропускаем разделители.
        if S[i] in D then Continue;
        //Учитываем очередной знак в длине слова.
        Inc(LenW);
        //Отслеживаем конец слова.
        if (i = Len) or (S[i + 1] in D) then begin
          //Счётчик слов.
          Inc(CntW);
          //Если это чётное слово, то выполняем перестановку слов.
          if CntW mod 2 = 0 then begin
            P2 := i - LenW + 1; //Позиция начала чётного слова.
            Sw := Copy(S, P2, LenW); //Запоминаем чётное слово.
            Delete(S, P2, LenW); //Удаляем чётное слово.
            Insert(Copy(S, P1, LenW1), S, P2); //Вставляем на место чётного нечётное слово.
            Delete(S, P1, LenW1); //Удаляем нечётное слово.
            Insert(Sw, S, P1); //Вставляем на место нечётного чётное слово.
          //Если это нечётное слово, то запоминаем его координаты.
          end else begin
            P1 := i - LenW + 1;
            LenW1 := LenW;
          end;
          //Сброс длины очередного слова.
          LenW := 0;
        end;
      end;
    //Если количество слов нечётное, то удаляем слово в середине.
    end else begin
      //Номер слова, которое находится в середине.
      CntMid := Cnt div 2 + 1;
      //Счётчик слов.
      CntW := 0;
      //Длина очередного слова.
      LenW := 0;
      //Перебор символов строки слева - направо.
      for i := 1 to Len do begin
        //Пропускаем разделители.
        if S[i] in D then Continue;
        //Учитываем очередной знак в длине слова.
        Inc(LenW);
        //Отслеживаем конец слова и выполняем обработку.
        if (i = Len) or (S[i + 1] in D) then begin
          //Номер очередного слова.
          Inc(CntW);
          //Если это слово находится в середине - удаляем его и прерываем цикл.
          if CntW = CntMid then begin
            Delete(S, i - LenW + 1, LenW);
            Break;
          end;
          //Сброс длины очередного слова.
          LenW := 0;
        end;
      end;
    end;
 
    //Ответ.
    Writeln('Количество слов в исходной строке: ', Cnt, '.');
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.