Помогите, прошу( Дано положительное действительное число X. Выведите его первую цифру после десятичной точки.

Var   X:string;   i:integer;BeginWrite('X = ');ReadLn(X);i:=Length(X);While (X[i] <> '.')and(i>1) do   i:=i-1;if X[i]<>'.' then WriteLn(0)else if i = Length(X) then Write(0)     else Write(X[i+1]);End.

var  x:real;begin  Write('x='); Read(x);  Writeln(Trunc(Frac(x)*10))end.Примеры:x=13.6436x=150x=0.0000140