Помогите решить на 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. Тестовое решение: Это пример=|=*строки=|=*для обра=|=*ботки=|=*=|=*=|=* такой