Дана строка 'аб12сд134е5',в ней нужно узнать количество ЧИСЕЛ и вывести их.

begin
  var s:=ReadlnString('Введите строку:');
  var m:=s.Matches('d+');
  Write('Найдено чисел- ',m.Count,': '); m.Println(',')
end.


Введите строку: аб12сд134е5
Найдено чисел- 3: 12,134,5