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

Var
   X:string;
   i:integer;
Begin
Write('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.