Помогите решить ** Packal , пожалуйста, ооооочень надо... Дан символ С и строки S,S0....

Question

Помогите решить на Packal , пожалуйста, ооооочень надо... Дан символ С и строки S,S0. Перед каждым вхождением символа С в строку S вставить строку S0.

Answer 1

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.

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