Дан символ C и строки S, S0. После каждого вхождения символа C в строку S вставить строку S0 — Pascal(Паскаль)

var
  s,s0:string;
  c:char;
  i:integer;
begin
  readln(s,s0,c);
  i:=1;
  repeat
    if s[i]=c then
    begin
      insert(s0,s,i+1);
      inc(i,Length(s0))
    end;
    inc(i);
  until
    i>Length(s);
  writeln(s)
end.