Ввести три строки s, s1, s2 c клавиатуры и если в s встречается s1, - Pascal ABC

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

Ввести три строки s, s1, s2 c клавиатуры и если в s встречается s1, то сформировать новую строку, в которой s1 заменить "эту встречаемость" на s2.

Решение задачи: «Ввести три строки s, s1, s2 c клавиатуры и если в s встречается s1,»

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

while pos(s1,s)>0 do
 begin
  p:=pos(s1,s);
  delete(s,p,length(s1));
  insert(s2,s,p);
 end;

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

Создаётся переменная s и инициализируется пустой строкой.
Создаётся переменная s1 и инициализируется первым символом строки s.
Создаётся переменная s2 и инициализируется пустой строкой.
Запускается цикл while, который будет выполняться до тех пор, пока позиция первого символа строки s1 в строке s больше 0.
Внутри цикла создаётся переменная p, которая будет хранить позицию первого символа строки s1 в строке s.
Далее происходит удаление подстроки s1 из строки s с помощью функции delete. Эта подстрока заменяется на ту, что была в переменной s2.
После этого происходит вставка подстроки s1 в начало строки s с помощью функции insert.
Цикл while повторяется, переходя к следующему символу строки s1 в строке s.
Когда позиция становится меньше 0, цикл while завершается.
Строка s теперь содержит все символы из строки s1, вставленные в начало.
Строка s1 теперь содержит только символ, который был в начале строки s.
Строка s2 остается без изменений.
Код завершается.