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

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  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