После каждой буквы предпоследнего слова вставить символ «*» - PascalABC.NET

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

После каждой буквы предпоследнего слова вставить символ «*».

Решение задачи: «После каждой буквы предпоследнего слова вставить символ «*»»

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

var
  s:string;
  l:array of string;
begin
  l:=ReadString('Введите строку:').Split(' ').ToArray();
  if l.Count=1 then writeln('Всего одно слово') else begin
    s:=l[l.Count-2];
    for i:integer:=length(s) downto 1 do Insert('*',s,i+1);
    l[l.Count-2]:=s;
    writeln('Результат:',System.string.Join(' ',l));
  end;  
end.

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

Переменная s типа string
Переменная l типа array of string (массив строк)
Запрос на ввод строки с помощью функции ReadString
Разделение введенной строки на слова с помощью метода Split и преобразование полученного массива в строку с помощью метода ToArray
Проверка количества слов в массиве l
Присвоение предпоследнего слова переменной s
Вставка символа * после каждой буквы предпоследнего слова с помощью цикла for и метода Insert
Замена предпоследнего слова в массиве l на измененное слово s
Вывод результата с помощью функции Join и метода Write
Результат выводится на экран