Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

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

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

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