小弟写了个单链表程序 用dev运行不起 有访问违例 ,但用TC就可以运行,请问高手是什么问题

#include<stdio.h>
#include<stdlib.h>
#define M 6
struct List
{
int data;
struct List *next;
};
typedef struct List *Lnode;
typedef Lnode Link;
Link L;
Link Initlist(Link L)
{

L=(Link)malloc(sizeof(Lnode));
L->next=NULL;
return L;

}
Link CreateList(Link L)
{
Link p;
int i,d;

for(i=M;i>0;--i)
{

scanf("%d",&d);
p=(Link)malloc(sizeof(Lnode));
p->data=d;
p->next=L->next;
L->next=p;
}
return L;
}
void PrintfL(Link L)
{
Link p;
p=L->next;
while(p!=NULL)
{
printf("%d\n",p->data);
p=p->next;
}
}
void VistElem_L(Link L,int i)
{
Link p;
int j;
int e;
p=L->next;
j=1;
while(p!=NULL&&j<i)
{
p=p->next;++j;
}

e=p->data;
printf("%d",e);
}
main()
{

/*Link L;*/ int e;
Initlist(L);
CreateList(L);
PrintfL(L);
VistElem_L(L,4);

system("pause");
system("pause");
L->next=NULL;
}