Написать программу, разделяющую буквы прочерками - Free Pascal

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

Дана строка вводимая с клавиатуры и содержащая различные символы. Нужно написать программу, которая разделит буквы в этой строке символом '_' с обеих сторон

Решение задачи: «Написать программу, разделяющую буквы прочерками»

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

for i:=length(stroka) downto 1 do
if stroka[i] in bukvy then 
 begin
  insert('_',stroka,i+1);
  if(i=1)or not(s[i-1] in bukvy) then insert('_',stroka,i);
 end;
Writeln('Otvet = ',Stroka);

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

stroka — это строка, которую необходимо разделить на буквы прочерками.
bukvy — это набор букв, которые необходимо оставить в строке без изменений.
i — это номер символа в строке, начиная с которого производится разделение.
insert('_',stroka,i+1); — это добавление прочерка после символа с номером i в строке stroka.
if(i=1)or not(s[i-1] in bukvy) — это условие, при котором добавляется прочерк перед символом с номером i в строке stroka.
Writeln('Otvet = ',Stroka); — это вывод результата разделения строки на экран.