Найти четвёртую от конца цифру в записи произвольного положительного целого числа х, значение которого вводится с клавиатуры (например, если дано х=25 6985, то получить у=6)

Var n,k:integer;
begin
write('n=');readln(n);
k:=1;
while (k<4)and(n>9) do
 begin n:=n div 10; inc(k); end;
if k=4
  then writeln('4-я цифра = ',n mod 10)
 else writeln('В числе меньше 4 цифр');
end.