строки, замена подстроки S на подстроку S1 Опции

[-гость-]

Водится N строк 1<N<20 длина которых не должна превышать 15 символов. Строки ддолжны состоять из заглавных и строчных русских букв и цифр. Преобразовать строки, заменив в них подстроку S на подстроку S1, вводимых пользователем. Вывести преобразованые строки.

[klem4]

// в цикле
find := pos(s, target);
if find <> 0 then begin
  delete(target, find, length(s));
  insert(target, s1, find);
end;

Где target - исследуемая строка, s - то что ищем, s1 - то на что меняем.