Решить на packal , , дан символ с и строки s,s0. перед каждым вхождением символа с в строку s вставить строку s0.

Var
  s, s0, sr: string;
  c: char;
  i, j: integer;

begin
  s := 'Это пример*строки*для обра*ботки*** такой';
  s0 := '=|=';
  c := '*';
  sr := '';
  j := 0;
  for i := 1 to Length(s) do
    if s[i] = c then sr := sr + s0 + c else sr := sr + s[i];
  Writeln(sr)
end.

Тестовое решение:
Это пример=|=*строки=|=*для обра=|=*ботки=|=*=|=*=|=* такой