На delphi дано натуральное число. определить: его вторую цифру

{$APPTYPE CONSOLE}
Var A:integer;
begin
Write('Введите целое число: ');ReadLn(A);
Write('Вторая цифра этого числа: ',(Abs(A) div 10) mod 10);
ReadLn
end.