Создать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку — Pascal(Паскаль)

const
  sub = 'O_o';

var
  s: string;
  ch: char;
  temp: integer;

begin
  WriteLn('Введите строку');
  ReadLn(s);
  WriteLn('Введите символ');
  ReadLn(ch);
  while Pos(ch, s) <> 0 do
  begin
    temp := Pos(ch, s);
    Insert(sub, s, temp);
    Delete(s, temp + Length(sub), 1);
  end;
  WriteLn(s);
  ReadLn;

end.