[luisito2011]

mmm bueno eso del esfuerzo... si lo hago..
solo que si.. lo acepto es como si no lo haga...

//beuno dejando eso aparte.. aca resolvi mi problema... solo
que solo me funciona con 8 digitos..cuando pongo mas de 9.. error..//

me pueden decir por que...

Código Delphi [-]
 
procedure ordenar(var b:cnumeronatural);
var veces,i:integer;
begin
  for veces  := 1 to(b.NumeroDigitos - 1) do
    begin
      for i := 1 to (b.NumeroDigitos - veces) do
          begin
          if b.Digito(i) > b.Digito(I+1) then
          begin
            b.InsertarDigito(i,b.Digito(i+1));
            b.ObtenerValor;
             b.EliminarDigito(i+2);
          end;
        end;
    end;
end;