vot tebe

var
  s1,s2: string;
  i,t : integer;
begin
  write('Введите строку s1: ');
  readln(s1);
  write('Введите строку s2: ');
  readln(s2);
  t := pos(s2,s1) + length(s2);
  for i := length(s1) - length(s2) + 1 downto t do
    if copy(s1,i,length(s2)) = s2 then delete(s1,i,length(s2));
  writeln('s: ', s1);
end.