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