Найти вторую цифру числа n.

uses crt;
var n:longint;
st:string;
begin
clrscr;
readln(n);
str(n,st);
write('Вторая цифра числа ',n,': ',st[length(st)-1];
readkey;
end.

while n>10 do
begin
l:=n mod 10;
n:=n div 10;
end;
writeln('L=',l);

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
 begin
  write('В числе нет 2 цифр');
  readln;
  exit;
 end;
if n in [10..99] then k:=n mod 10
else
 begin
  while n>100 do
  n:=n div 10;
  k:=n mod 10;
 end;
write('Вторая цифра=',k);
readln
end.

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
 begin
  write('В числе нет 2 цифр');
  readln;
  exit;
 end;
while n>10 do
 begin
  k:=n mod 10;
  n:=n div 10;
 end;
write('Вторая цифра=',k);
readln
end.