Заменить каждую точку в строке на многоточие - Pascal

Дано рядок символов S. Переделать рядок, заменивши в нём каждую точку многоточием (троеточие).

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

for i:=length(s) downto 1 do
if s[i]='.' then insert('..',s,i);

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

В данном коде происходит замена каждой точки в строке на многоточие. Вот список действий, которые происходят в коде:

for i:=length(s) downto 1 do - это цикл, который проходит по всем символам строки s в обратном порядке, начиная с последнего символа и заканчивая первым.
if s[i]='.' then - это условие, которое проверяет, является ли текущий символ точкой.
insert('..',s,i) - это функция, которая вставляет многоточие перед текущим символом в строке s. Функция insert заменяет указанный символ в строке на многоточие и возвращает новую строку. Таким образом, код проходит по каждому символу строки s, проверяет, является ли он точкой, и если да, то заменяет его на многоточие.