Как удалить введенную строку

Автор вопроса: Zahar4ik

var s,t:string;
var k: integer;

begin
  readln(s);
  
  readln(t);
  
  for var i:=1 to length(s) do
  begin
    k:=pos(t,s);                                                                                                            
    delete(s,k,length(s));
    
  end;

  writeln(s);
  
end.

Источник

Ответы (1 шт):

Автор решения: MBo

readln(s);
readln(t);
p := Pos(t, s);
while p > 0 do begin
  Delete(s, p, Length(t));
  p := Pos(t, s);
end;

→ Ссылка