Определение нечётных чисел в строке - PascalABC.NET

begin
  var re := '(\d*[13579])(?!\d)(?:.+(?<!\d)(\d*[13579])(?!\d)|)';
  var str := ReadlnString('Ввести стоку:');
  var m := Regex.Match(str, re);
 
  writeln('Первое нечётное число=', m.Groups[1]);
  writeln('Последнее нечётное число=', m.Groups[2]);
  writeln('Полученная строка:', Regex.Replace(str, re, '$1$2'));
end.
 
Ввести стоку: +12 123a%bc 541 945 700
Первое нечётное число=123
Последнее нечётное число=945
Полученная строка:+12 123945 700