[luisito2011]

hola.. a todoj.. gracias por los comentarios..y cosejos
en realidad yo aun estoy aprendiendo..
y la 1ra respuesta del problema que tenia .. si estaba bien..
pero lo que yo buscaba era esto.. que lo resolvi con un conpañero
gracias te todos modos..
---------------------------------------------------------------

Código Delphi [-]
unit caja1;
interface
function eliminar_dig(a,z:integer):integer;
implementation
 function eliminar_dig(a,z:integer):integer;
 var b,c,d,inv,e,f:integer;
 begin
 write('digite numero');
readln(a);
write('digite la posicion a eliminar');
readln(z);
 inv:=0; d:=0; c:=0;  f:=0;
 while a>0 do
 begin
   b:=a mod 10;
   a:= a div 10;
   inv:=inv*10+b;
 end;
   while inv>0 do
   begin
   d:=inv mod 10;
   inv:=inv div 10 ;
   c:=c+1;
   if c<>z then
    begin
      f:= f*10+d
    end;
    eliminar_dig:=f;
 end;
 end;

---aun que la respuesta.. me ayudo a recordar.. del invertir.. los digitos.
---y la ayuda que te dan en este foro es muy bueno.. se les agradece a todos...
saludos