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

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

program Task_Str3;

  {задачи на строки паскаль с решением}
  {Заменить найденную строку заданной подстрокой Паскаль,}
  { функции Delete, Insert, Pos}
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);
  Delete(s_Str1, p, n);// удаляем сторку, которую нашли
  insert(s_Str3, s_Str1, p); //вставляем заданную строку
  WriteLn('Строка с заменой: ', s_Str1);
  ReadLn();
end.

Результат:

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