Hola Luisito.
Creo que deberías mostrarlo así:
Código Delphi
[-]
var
a: CNumeroNatural;
x:integer;
begin
a:=cnumeronatural.Crear;
WriteLn('Digite Un Numero'); Readln(x);
A.AsignarValor(x);
a.InsertarDigito(3,9);
WriteLn('Nuevo Numero ',a.ObtenerValor);
readln;
Un saludo.