Удалить из строки S1 вторую подстроку S2. Если такой подстроки S2 не содержится в S1, то вывести S1 без изменений

Program ABC;
var
S1, S2, S3: string;
i, inew, l,k: integer;
begin
k:=0;
writeln('S1');
readln(S1);
S3:=S1;
writeln('S2');
readln(S2);
l := Length(S1);
i := 0;
repeat
inew := Pos(S2, Copy(S1, i + 1, l));
if inew <> 0 then begin
i := i + inew;
k:=k+1;
end;
until inew = 0;
if (i <> 0) then
Delete(S1, i, length(S2));
if k>1 then writeln(s1) else writeln (s3);
end.

program abc;
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.

Program ABC;
var
  s1, s2, s3: string;
  i, ipos, firstpos: integer;
begin
  writeln('Введите строку:');
  readln(s1);
  s3:= s1;
  writeln('Введите подстроку:');
  readln(s2);
  i:= 0;
  repeat
    ipos:= Pos(s2, s3);                {нахождение индекса вхождения подстроки в строку }
    Delete(s3, ipos, length(s2));   {удаление найденной подстроки из строки }
    inc(i);                                   { подсчет найденных вхождений подстроки}
    if i = 1 then                           { если программа нашла подстроку первый раз то запомнить индекс}
      firstpos:= ipos;
    if i = 2 then                           { если программа нашла подстроку второй раз, то вставить подстроку, 
                                                   обратно по индексу и выйдет из цикла}
      begin
        insert(s2,s3,firstpos);
        break;
      end;
  until ipos = 0;       {если подстрока не найдена в строке, то цикл прекращается}
  if i <= 1 then        { если количество найденных вхождений подстроки либо 0, либо 1, то выводиться 
                                                  начальная строка}
    writeln(s1)
  else                     { если количество найденных вхождений подстроки больше 1, то выводиться отредактированная строка}
    writeln(s3);
  readln;
end.