Даны две строки: S1 и S2. Удалить из строки S1 первый, последний и все подстроки, совпадающие с S2. Если таких подстроки нет, то вывести S1 без изменений — Pascal(Паскаль)

program udalen;
var
 s,s1:string;
 i:integer;
 begin
  writeln('введите мроку 1');
  readln(s);
  writeln('введите строку 2');
  readln(s1);
  for i:=1 to length(s) do begin
   if copy(s,i,length(s1))=s1 then begin
    delete(s,i,length(s1));
    end;
   end;
  write(s);
end.

program udalen;
var
 s,s1,copy:string;
 i:integer;
 begin
  writeln('Строка 1');
  readln(s);
  copy:=s;
  writeln('Строка 2');
  readln(s1);
  for i:=1 to length(s) do begin
   if copy(s,i,length(s1))=s1 then begin
    delete(s,i,length(s1));
    end;
   end;
  writeln('Строка : ',copy);
  writeln('Результат: ',s);
  readln;
end.