Напишите программу в pascal, которая в текст перед словом "большой" вставляет слово...

Question

Напишите программу в pascal, которая в текст перед словом "большой" вставляет слово "очень".

Answer 1

Const
  c1='Мы испекли большой каравай';
  c2='большой';
  c3='очень';
 
var
  s:string;
  i:integer;
begin
  s:=c1;
  Writeln(s);
  i:=Pos(c2,s);
  if i>0 then Insert(c3+' ',s,i);
  Writeln(s)
end.

Результат выполнения программы:
Мы испекли большой каравай
Мы испекли очень большой каравай