СПИСКИ удаление элемента,

компилирую на BC, помогите исправить ошибку, в чем дело?

#include <conio.h>
#include <stdio.h>
//bool DeleteListElem();
struct ListElem
{
int A;
ListElem *next;
};

bool DeleteListElem (ListElem *elem)
{
bool ret=false;
ListElem *p,*prev;
p=prev=first;
if (first==elem)
{
if (first->next!=0)
{
first=p->next;
delete p; CountsElem--;
return true;
}
else
{
delete first; first=NULL;
CountsElem--;return true;
}
}
while(p->next!=0)
{
p=p->next;
if (p==elem)
{
prev->next=p->next;
delete p; ret=true;
CountsElem--;
break;
}
prev=p;
}
return ret;
}

void main(void)
{
DeleteListElem(170);
}