Gracias a todos! al final terminé usando esto que igual me sirvió
Lo voy a poner todo en uno en consola para no estar separando todo en funciones
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var N, D, NumDigits, r, valordig: integer; K: byte;
begin
readln(N);
readln(k);
NumDigits:= trunc(Ln(N)/Ln(10))+1;
D:= trunc(exp((NumDigits-k)*Ln(10)));
r:= n div D;
r:= r mod 10;
Writeln('El valor del digito es: ',r);
readln;
end.
Muchas gracias a todos los que me ayudaron, simplemente tenía que usar la "fórmula" para obtener el número de dígitos y luego usar otra. Gracias!
Tema resuelto
