#include "stdio.h"
#include "conio.h"

typedef char elemtype;
typedef struct nodel
{elemtype data;
struct nodel *next;
}nodel,*LinkList;
void CreatList_L(LinkList L,int n)
{int i;
nodel *p;
L=(LinkList)malloc(sizeof(nodel));
L->next=NULL;
for(i=n;i>0;--i)
{p=(LinkList)malloc(sizeof(nodel));
scanf(&p->data);
p->next=L->next;L->next=p;
}
}
char anzhichazhao(LinkList L,char x)
{nodel *p;
int i=1;
p=L->next;
if(p->data!=x)
{p=p->next;i++;}
if(p)return i;
else printf("Error");
}

int chazhaoweizhi(LinkList L,int s)
{nodel *p;
int j;
p=L->next;

for(j=1;j<=s;j++) p=p->next;
if(p)return p->data;
else printf("Error");
}
void charu (LinkList L,char e,int s)
{nodel *p,*q;
int j;
p=L->next;

for(j=1;j<=s;j++)p=p->next;
if(p)
{q=(LinkList)malloc(sizeof(nodel));
q->data=e;
q->next=p->next;
p->next=q;}
else printf("Error");
}
void shanchu(LinkList L,int m)
{nodel *p,*q;
int i;
p=L->next;
while(m>=1&&p&&i<m){p=p->next;i++;}
q=p->next;
p->next=p->next->next;
free(q);printf("OK");
}

void anyuansushanchu(LinkList L,char e)
{int i;
i=anzhichazhao(L,e);
shanchu(L,i);
}

void print(LinkList L)
{nodel *p;
p=L->next;
while(p)
{printf("%c->",p->data);p=p->next;}
}
main()
{nodel L;
char ch,e;
int m,n;

printf("Shu ru xiang yao chuang jian de liao biao de chang du n");
scanf("%d",&n);
printf("shuru jie dian xin xi");
CreatList_L(&L,n);
printf("ni jian li de shun xu biao wei");
print(&L);
printf("shu ru ni xiang yao cha ru de yuan su e he cha ru de wei zhi m");
scanf("%c,%d",&e,&m);
charu(&L,e,m);
printf("cha ru hou de biao wei");
print(&L);
}