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

Это что приказ или очередное задание начальика за которое будет заплачено ? Если нет, то милости прошу : FAQ : Строки

+ Поиск. подобные задачи решались десятки раз.

Я весь поиск облазил и ничего подобного не нашел.
Если можете, помогите найти

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

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