intercalar digitos

[luisito2011]

ola.. tengo una duda.. con esta funcion..
deveria intercalarme digitos de A,b ah C
ejem.... si tengo a:=159 , b:= 267, toncej c:= 125697

Código Delphi [-]
function intercalar( var a,b,c:cnumeronatural):integer;
var aux,pos:integer;
begin
pos:=1;
aux:=0;
while pos < = a.numerodigitos do
   begin
     if aux = 0 then
        begin
           c.asignarvalor((c.obtenervalor * 10) + a.digito(pos)));
           aux:=1;
           end else
             begin
                 c.asignarvalor((c.obtenervalor * 10) + b.digito(pos)));
                 pos:=pos+1; 
                aux:=0;             
       end;
        end;       
     end;
end;

Se supone que eso deveria funcionar.. pero cuando corro el programa con
F7... en la parte que esta rojo... no pasa nada.. es como si no existiera..
por que ??

ejem.. a:= 135 , b:=246 -->c:=123456
pero... me sale solo c:=135

saludos..
ah.. es el penultimo ejercicio de mi practico de naturales
ahora sigue vectores espero seguir recibiendo ayuda... la verdad que es muy bueno el foro... bueno.. bye.. vectores dios... desenme suerte