Удалить из строки S1 первую, последнюю, все подстроки совпадающие с S2

[ТРОЯН=)]

Немогу решить помогите плиз!!!
Даны две строки S1 и S2.Удалить из строки S1 первую,последнюю,все подстроки совпадающие с S2.Если таких подстрок нет то вывести S1 без изменений.

[SuperVisor]

i:=pos(s2,s1);
while i<>0 do
begin
  delete(s1,i,length(s2));
  i:=pos(s2,s1);
end;
writeln(s1);