вещественные типы ниразу не подходят для счетчиков, при больших значениях разрядность матиссы убъет приращения... используйте целочисленные переменные, запятую ставьте в процедуре индикации величины