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

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

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