function ObtenerDigito(Numero: Integer; const Posic: Byte): Integer;
var
Inverso, Resto, i: Integer;
begin
Inverso:= 0;
while Numero > 0 do
begin
Resto := Numero mod 10;
Inverso:= Inverso * 10 + Resto;
Numero := Numero div 10;
end;
for i:= 1 to Posic do
begin
Result := Inverso mod 10;
Inverso:= Inverso div 10;
end;
end;