求助数据结构问题，大侠请进。（急在线等）

void delx(SqList *&L,ElemType x)
{
struct *p=L;
for(int i=1;iif(p->data==x)p->next=p->next->next;
length--;
}
}
你的这个程序问题很多，首先标识符的使用上有很多小毛病，编译的时候会出现一大堆错误，其次在结构体使用上结构不明确，缺少结构体元素的声明。每个函数中直接使用结构体指针L这样会导致它的数值一直变动，应该用行驶参数代替。我写的这段程序应该说是错了，参数就不对（复制的你的）。但是是大概的意思对的，因为不知道你到底想怎么写，所以就简单写了点。还有在程序中实时改变的length应该声明为静态变量。

I think it is quiet easy:
Maybe,should be like this in free pascal:
var
i,x:integer;
a,b:array[1..10000]of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln(x);
l:=0;
for i:=1 to n do
if a[i]=x then
begin
l:=l+1;
b[l]:=a[l];
end;
a:=b;
for i:=1 to l do
write(a[i]);
end.