Даны строки 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.

Тестовое решение:

Введите строку

Где-то тут прячется подстрока, которую мы должны найти и удалить!

Введите подстроку

мы должны найти

Результат:

Где-то тут прячется подстрока, которую и удалить!