Добавить в конец каждого слова сочетание СЛА - PascalABC.NET

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

Ввести строку, добавить сочетание СЛА в конец каждого слова

Решение задачи: «Добавить в конец каждого слова сочетание СЛА»

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

var s:string;
    i:byte;
begin
writeln('Введите строку из слов, отделенных пробелами');
readln(s);
s:=s+' ';
for i:=length(s) downto 2 do
if (s[i]=' ')and(s[i-1]<>' ') then
insert('СЛА',s,i);
write(s);
end.

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

Вводится строка из слов, отделенных пробелами
В строке добавляется пробел в конец каждого слова
Происходит проверка на наличие пробела и отсутствие предыдущего пробела
Если условие выполняется, то в строку вставляется сочетание СЛА после текущего пробела
Выводится итоговая строка