Присвоить целой переменой К первую цифру из дробной части. Delphi

[Dilex]

Присвоить целой переменой К первую цифру из дробной части положительного вещественного числа !

какбы условие понятно что

к : integer 
m:real

и по записям допустим m= 10.235, тогда к= 2

как оформить программно ?

[Serge_Bliznykov]

K := trunc(m * 10) mod 10;

и всё!

[Dilex]

Сообщение от Serge_Bliznykov

K := trunc(m * 10) mod 10;

и всё!

Спасибо за обьяснение !
а если число М будет вводится с клавиатуры то как будет выглядеть запись ?

[Mad_Cat]

var
к : integer; 
m:real;
begin
readln(m);
K := trunc(m * 10) mod 10;
writeln(k);
Readln;
end.

[Dilex]

Сообщение от Mad_Cat

var
к : integer; 
m:real;
begin
readln(m);
K := trunc(m * 10) mod 10;
writeln(k);
Readln;
end.

Большое спасибо !