Помогите, пожалуйста:(  составьте новую строку, содержащую те же символы, однако символы "4" и "*" записать дважды. 

PascalABC.NET:

var
  oldStr, newStr : string;
begin
  write('Введите строку: ');
  readln(oldStr);
  newStr := oldStr.Replace('4', '44').Replace('*', '**');
  writeln('Результат: ', newStr);
end.