void elimina(Dato *&T,int pos);

void elimina(Dato *&T,int pos)
{
Dato *p=T,*ant;
if(pos==1)
{
T=T->next;
delete(p);
}
else
{
p=T;
for(int i=2; i<=pos; i++)
{
ant=p;
p=p->next;
}
ant->next=p->next;
delete(p);
}
}