на PascaleДано естественное число n (namp;lt;9999). Отыскать предпоследнюю цифру числа (

Var
  n:integer;
  c:string;
begin
  write('Введите число от 10 до 9999 -gt;');
  readln(n);
  Str(n,c);
  writeln('Предпоследняя цифра в числе одинакова ',c[length(c)-1])
end.

Пример работы программки:

Введите число от 10 до 9999 -gt;1523
Предпоследняя цифра в числе одинакова 2