Поменять местами первое и последнее слово - Turbo Pascal

Формулировка задачи:

Помогите написать программу. "Поменяйте местами первое и последнее слово" (ввод строк организуйте в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел)

Решение задачи: «Поменять местами первое и последнее слово»

Листинг программы

var s,w1,w2:string;
i:byte;
begin
w1:=''; w2:='';
readln(s);
i:=1;
while s[i]<>' ' do
begin
w1:=w1+s[i];
inc(i);
end;
delete(s,1,length(w1));
i:=length(s);
while s[i]<>' ' do
begin
w2:=s[i]+w2;
dec(i);
end;
delete(s,i+1,length(w2));
writeln(w2+s+w1);
end.

Объяснение кода листинга программы

Объявляются переменные s, w1 и w2 типа string.
Переменная i инициализируется значением byte.
Создаются две пустые строки w1 и w2.
Считывается строка из ввода.
Инициализируется переменная i значением 1.
Входим в цикл while, условием которого является то, что символ в текущем месте строки (s) не равен пробелу.
В цикле while строка s преобразуется в одну строку, где каждый символ добавляется к переменной w1.
После завершения внутреннего цикла while переменная i инкрементируется.
Переменная i инициализируется значением длины строки s.
Входим во внешний цикл while, условием которого является то, что символ в текущем месте строки (s) не равен пробелу.
В цикле while строка s преобразуется в одну строку, где каждый символ добавляется к переменной w2.
После завершения внешнего цикла while переменная i декрементируется.
Выводится результат: строка w2 + строка w1 + строка s.
Программа завершается.