Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений.

var   s, s0: string;   i: integer; begin   writeln('Введите строку');   readln(s);   writeln('Введите подстроку');   readln(s0);   i := Pos(s0, s);   if i > 0 then Delete(s, i, length(s0));   writeln('Результат:');   writeln(s) end. Тестовое решение: Введите строку Где-то тут прячется подстрока, которую мы должны найти и удалить! Введите подстроку мы должны найти Результат: Где-то тут прячется подстрока, которую  и удалить!