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

VAR
  s1, s2: STRING;
BEGIN
  WRITE('s1=');
  READLN(s1);
  WRITE('s2=');
  READLN(s2);
  REPEAT
    IF Pos(s2, s1) > 0
    THEN
      Delete(s1, Pos(s2, s1), Length(s2))  
  UNTIL Pos(s2, s1) = 0;
  WRITELN('s1=''', s1, '''');
  READLN
END.