Работа со строками

[lolwto]

Даны: строки S и S0. Удалить из строки S все подстроки совпадающие с S0. Если совподающих нет вывести строку S без изменений.

[interacia]

Program String1;
var

S0:string; 
S:string; 
begin
// ввод данных
Write('Введите строку S ');
readln(S);
Write('Введите строку S0 ');
readln(S0);
// решение
while Pos(S0,S)>0 do
begin
Delete(S,Pos(S0,S),length(S0));
end;
// вывод результата
Writeln('Ответ ');
Writeln(S);
end.

[Serge_Bliznykov]

interacia, ваш вариант решения не всегда будет работать корректно.

например.
задана строка:
Ескокоддть - лаккододжа
и подстрока код
очевидно, что должно быть удалено:
Ескокоддть - лаккододжа

а теперь запустите свою программу.
Полученный ответ - ожидаем?

[Zer0]

Думаю такое будет чуть более верным

S0:string; 
S:string; 
i: integer;
begin
// ввод данных
Write('Введите строку S ');
readln(S);
Write('Введите строку S0 ');
readln(S0);
for i:=1 to (Length(s)-Length(s0)+1) do
  if Copy(s,i,Length(S0))=S0 then
    Delete(S,i,Length(S0));
Writeln('Ответ ');
Writeln(S);
end.