программа на паскале
имеется текстовая строка s, а так же еще 2 строки : s1 и s2 . заменить каждую встретившуюся в строке s строку s1 строкой s2

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin  var s:=ReadlnString('Исходная строка:');  var s1:=ReadlnString('Строка для поиска:');  var s2:=ReadlnString('Строка для замены:');  Writeln('Результат: ',s.Replace(s1,s2))end.Тестовое решение:Исходная строка: мама купила маленькую матрешкуСтрока для поиска: маСтрока для замены: соРезультат: сосо купила соленькую сотрешку