Задача со строками2 - Pascal ABC

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

Помогите решить. Даны строки S1 и S2. Удалить из строки S1 первую подстрочку совпадающую с S2/ Если таких подстрок нет то вывести S1 без изменений. Если можно с обьяснением))

Решение задачи: «Задача со строками2»

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

if pos(s2,s1)>0 then delete(s1,pos(s2,s1),length(s2));

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

В данном коде выполняется следующая последовательность действий:

Входные данные:
- s1 - строка, в которой ищется подстрока s2.
- s2 - подстрока, которую необходимо найти в строке s1.
- pos - функция, возвращающая позицию первого символа подстроки s2 в строке s1.
- length - функция, возвращающая длину подстроки s2.
Выполняется проверка условия: pos(s2,s1)>0. Это условие проверяет, что подстрока s2 действительно присутствует в строке s1, и не является пустой.
Если условие выполняется, то выполняется удаление подстроки s2 из строки s1. Это делается с помощью функции delete, которая принимает в качестве аргументов строку, позицию первого символа подстроки и длину подстроки. Таким образом, данный код выполняет удаление подстроки s2 из строки s1, если подстрока присутствует в строке.