Дано число, посчитать, сколько разрядов после запятой

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  var s:=ReadlnString('Введите число, отделяя дробную часть запятой:');  s:=Trim(s); // мало ли...  var p:=Pos(',',s);  if p>0 then Writeln('Цифр в дробной части числа: ',s[p:].Length-1)  else Writeln('Запятой в числе не найдено')end.Тестовое решениеВведите число, отделяя дробную часть запятой: 423,56324Цифр в дробной части числа: 5