Подправить код задачи про замену символов групп - Pascal ABC

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

В заданной строке заменить группу символов 'abc' на 'abcd' Почему не правильно?

var s:string;
i:byte;
begin
writeln('Введите строку: ');
readln(s);
for i:=1 to length(s) do
begin
if s[i]='abc' then
s[i]:='abcd';
end;
writeln(s);
readln;
end.

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

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

var s:string;
    i:byte;
begin
writeln('Введите строку: ');
readln(s);
for i:=length(s)-2 downto 1 do
if copy(s,i,3)='abc' then insert('d',s,i+3);
writeln(s);
readln;
end.

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

Создаётся переменная s типа string, которая будет хранить введённую пользователем строку.
Создаётся переменная i типа byte, которая будет использоваться для счётчика символов в строке.
Выводится сообщение «Введите строку: », чтобы предложить пользователю ввести строку.
С помощью функции readln считывается введённая пользователем строка и сохраняется в переменной s.
Запускается цикл for, который начинается с индекса length(s)-2 (это означает, что мы начинаем с последнего символа строки) и продолжается до индекса 1.
Внутри цикла проверяется, состоит ли текущая группа из трёх символов ('abc'). Если да, то с помощью функции insert в строку s вставляется символ 'd'.
После завершения цикла выводится отформатированное сообщение с введённой пользователем строкой.
Запускается ещё одна функция readln, чтобы пользователь мог ввести следующую строку, если это необходимо.