Заменить в строке подстроку №1 на подстроку №2 - Pascal ABC

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

Дана строка. Заменить в ней все вхождения подстроки №1 на подстроку №2. Подстроки №1 и №2 вводятся с клавиатуры. Спасибо за внимание!

Решение задачи: «Заменить в строке подстроку №1 на подстроку №2»

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

var s,s1,s2:string;
    i:byte;
begin
writeln('Введите строку');
readln(s);
writeln('Введите подстроку для удаления');
readln(s1);
writeln('Введите подстроку для замены');
readln(s2);
for i:=length(s) downto 1 do
if copy(s,i,length(s1))=s1 then
 begin
  delete(s,i,length(s1));
  insert(s2,s,i);
 end;
write(s);
end.

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

В начале объявляются переменные s, s1 и s2 типа string, а также переменная i типа byte.
Затем выводится сообщение 'Введите строку', и в переменную s считывается введенная пользователем строка.
Выводится сообщение 'Введите подстроку для удаления', и в переменную s1 считывается подстрока, которую необходимо удалить.
Выводится сообщение 'Введите подстроку для замены', и в переменную s2 считывается подстрока, которую необходимо вставить вместо удаленной.
Затем идет цикл for, который проходит по каждому символу в строке s от длины до 1.
Внутри цикла проверяется условие if: если текущий символ в строке s совпадает с первым символом подстроки s1, то выполняется следующая часть условия.
В этой части удаляется символ с индексом i из строки s и вставляется подстрока s2 с тем же индексом i.
После выполнения условия if выполняется вывод строки s.
Цикл for завершается, и программа заканчивается.