Даны строки 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.Тестовое решение:Введите строкуГде-то тут прячется подстрока, которую мы должны найти и удалить!Введите подстрокумы должны найтиРезультат:Где-то тут прячется подстрока, которую  и удалить!