Преобразуйте строку таким образом, что после каждой 2 стояли "!!!" - Pascal

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

Введите строку. преобразуйте строку таким образом, что после каждой 2 стояли "!!!". вывести преобразованную строку.

Решение задачи: «Преобразуйте строку таким образом, что после каждой 2 стояли "!!!"»

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

var s: string;
    i: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = '2'
      then insert('!!!', s, i + 1);
  writeln('Преобразованная строка:');
  writeln(s);
  readln
end.

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

Создается переменная строки s для хранения введенной пользователем строки.
Создается переменная целого числа i для использования в цикле.
Выводится на экран сообщение Введите строку:.
Пользователь вводит строку, которая сохраняется в переменной s.
Посчитав количество символов в строке, начиная с последнего и заканчивая первым, происходит перебор всех символов в строке.
Если текущий символ равен символу 2, то после этого символа добавляется строка !!! с помощью функции insert в переменную s.
Выводится на экран преобразованная строка.
Ожидается ввод данных, чтобы пользователь мог увидеть результат до закрытия окна программы.