Как убрать целую часть у дроби и оставить только одну цифру? - Pascal ABC

Смотрите, у меня есть десятичная дробь - 10.858, мне нужна только первая цифра после запятой, то есть в ответе только 8. Как это сделать?

Листинг программы

write(a:0:1);

Объяснение кода листинга программы

Заголовок программы: Программа выводит дробь на экран
Вывод на экран числа, представленного в виде десятичной дроби, осуществляется с помощью функции write
В качестве аргумента функции write используется переменная a типа дочерний с индексом 0 и значением 1
Значение переменной a представляет собой целое число, равное 1
Функция write выводит на экран значение переменной a
Результатом выполнения программы будет вывод на экран числа 1