Добавить к каждому найденному во введенной фразе слову символ - Free Pascal

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

Надо написать программу, которая добавляет к каждому найденному во введенной фразе слову символ «а». Удалите все лишние пробелы между словами

Решение задачи: «Добавить к каждому найденному во введенной фразе слову символ»

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

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('a',s,i);
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
write(s);
readln
end.

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

Объявлены две переменные: s (строка) и i (байт).
Выводится запрос на ввод строки из слов, разделенных пробелами.
Введенная строка сохраняется в переменной s.
Строка s дополняется пробелом в конце.
В цикле for перебираются символы строки s в обратном порядке.
Если текущий символ - пробел и предыдущий символ не является пробелом, то в эту позицию вставляется символ 'a'.
В цикле while удаляются лишние пробелы из строки s.
Выводится значение переменной s.
Выполняется операция чтения из файла или другого источника данных.