Определение первой цифры дробной части числа

[Intersap]

Целой переменной Des присвоить первую цифру с дробной части положительного числа X, значение которого вводится с клавиатуры (если X =32.597, Des=5 ).
Я думаю использовать Frac() - откинет целую часть и возьмет только дробную. Но как узнать первую цифру? ведь количество знаков после запятой может быть разным.

[NetSpace]

используйте s:=FloatToStr() для дробной части
и потом в вашей строке найдите первый символ: first:=s[1];

[VadikV]

Frac() откинет дробную часть. ее умнож на 10 и возьми только целую часть. это и будет первое число дробной части

dec := Trunc(Frac(x)*10);