Calcular digitos de un numero (hasta 4 digitos), Pascal

Calcular digitos de un numero (hasta 4 digitos)

Program CalcularDigitosdeunEntero;
var Result, Z, primerdigito, segundodigito, tercerdigito, cuartodigito : integer; 
begin
    read(Z);
        if Z <= 9 then
        begin
          Result := 1;
          primerdigito:= Z;
          writeln('El primer digito es ', Z);
        end
        else
        if Z <= 99 then
        begin
          Result := 2;
          primerdigito:=Z div 10;
          segundodigito:=Z mod 10;
          writeln('El primer digito es ', primerdigito);
          writeln('El segundo digito es ', segundodigito);
        end
        else
        if Z <= 999 then
        begin
          Result := 3;
          primerdigito:=Z div 100;
          segundodigito:=(Z mod 100) div 10;
          tercerdigito:=Z mod 10;
          writeln('El primer digito es ', primerdigito);
          writeln('El segundo digito es ', segundodigito);
          writeln('El tercer digito es ', tercerdigito);
        end
        else
        if Z <= 9999 then
        begin;
          Result := 4;
          primerdigito:=Z div 1000;
          segundodigito:=(Z mod 1000) div 100;
          tercerdigito:=(Z mod 100) div 10;
          cuartodigito:= Z mod 10;
          writeln('El primer digito es ', primerdigito);
          writeln('El segundo digito es ', segundodigito);
          writeln('El tercer digito es ', tercerdigito);
          writeln('El cuarto digito es ', cuartodigito);
        end;
      writeln('Hay ',Result,' digitos.');  
end.


run \| edit \| history \| help	0