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

Формулировка задачи:

Строка состоит из различных символов(буквы,числа,любые знаки) определить нечётные числа и удалить всё что находиться между ними.

Решение задачи: «Определение нечётных чисел в строке»

textual
                            Листинг программы 
                        

                            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
                        