Вставка символов между символами исходной строки - Turbo Pascal

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

нужно сделать такую программу чтобы я писал слово например "куркума" и чтобы выводило "к*у*р*к*у*м*а" И если я напишу другое слово чтобы делалось так же. Писать на основе этой программы:

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var s:string;
begin
Write('Введи слово ');
ReadLn(s);
s[2]:=s[5];
WriteLn(s);
end.

Решение задачи: «Вставка символов между символами исходной строки»

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

var
  s: string;
  i:integer;
 
begin
  Write('Введи слово: ');
  ReadLn(s);
  s:=s+' ';
  for i:=1 to length(s) do
    if odd(i) then
     insert('*',s,i+1);
  WriteLn(s);
end.

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

Переменная s объявлена как строка (string).
Переменная i объявлена как целочисленная (integer).
Строка s запрашивается у пользователя с помощью функции ReadLn().
Строка s изменяется путем добавления пробела к каждому символу.
Затем происходит цикл for, который выполняется от 1 до длины строки s.
Внутри цикла проверяется, является ли текущий индекс нечетным.
Если текущий индекс нечетный, то символ '*' вставляется в строку s на этом индексе.
После завершения цикла for, строка s выводится на экран с помощью функции WriteLn().