Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k. — Pascal(Паскаль)

uses crt;
var n:longint;
    k,c:byte;
begin
clrscr;
write('n=');
readln(n);
if n<100 then write('В числе нет 3 цифр!')
else
 begin
  k:=0;
  while n>0 do
   begin
    k:=k+1;
    n:=n div 10;
    if k=2 then c:=n mod 10;//если 2 цифры уже сократили, берем первую с конца, она третья
   end;
  write('Третья цифра с конца=',c);
 end;
readln
end.

Var
 s,s1:string;
 h,l:integer;
 n:longint;
begin
readln(n);
h:=(n div 100) mod 10;
writeln(h);
end.

uses crt;
var n:longint;
    k,c:byte;
begin
clrscr;
write('n=');
readln(n);
if n<100 then write('В числе нет 3 цифр!')
else
 begin
  k:=0;
  while n>0 do
   begin
    k:=k+1;
    n:=n div 10;
    if k=2 then c:=n mod 10;//если 2 цифры уже сократили, берем первую с конца, она третья
   end;
  write('Третья цифра с конца=',c);
 end;
readln
end.