Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Заменить все найденные строки, заданной подстрокой Паскаль..
Поиск осуществляем функцией Pos. Когда находим строку — удаляем ее, на место удаленной строки, вставляем заданную строку. Чтобы заменить все строки, организуем цикл.

program Task_Str3;

  {задачи на строки паскаль с решением}
  {Заменить все найденные строки, заданной подстрокой Паскаль.,}
  { функции Delete, Insert, Pos}
  {Цикл  while}
var
  i, n, p: integer;
  s_Str1, s_Str2, s_Str3: string;
begin
  i := 1;
  s_Str1 := 'Зеленный цвет был на стенах домов, на стенах сараев'; //исходная строка
  s_Str2 := 'стенах';//эту строку надо найти и заменить на заданную
  s_Str3 := 'крышах';//заданная строка
  n := length(s_Str2);
  WriteLn('Строка: ', s_Str1);
  p := pos(s_Str2, s_Str1);
  while p > 0 do
  begin
    Delete(s_Str1, p, n);// удаляем сторку, которую нашли
    insert(s_Str3, s_Str1, p); //вставляем заданную строку
    p := pos(s_Str2, s_Str1); // ищем еще раз, до тех пор пока не найдем все строки
  end;
  WriteLn('Строка с заменой: ', s_Str1);
  ReadLn();
end.

Результат:

Заменить все найденные строки, заданной подстрокой Паскаль.