Utilizamos recursividad para contar digitos
de un numero dividiendo entre 10 y guardando la parte
entera hasta que nuestro numero valga "0" contamos
la cantidad de divisiones necesarias para obtener tal
valor y ese numero de ciclos es la cantidad de digitos de
nuestro numero





program Project15;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,i:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('ingrese un numero para contar los digitos ');
readln(x); //pedimos el numero
i:=0;      //Inicialisamos el contador
repeat     //este es el proceso recursivo
x:=x div 10;//dividimos entre 10 y guardamos la parte entera
i:=i+1;     //El contador debe aumentar en 1
until(x=0); //Repetira hasta que x valga 0
writeln('El numero tiene ',i,' digitos');
readln;

end.