一道PASCAL的题，高手帮忙解决啊！

来源：百度知道 编辑：UC知道 时间：2024/07/01 04:57:56
对于数组a,输入一个测试数据x，如果x存在于数组a，则把x元素删除；否则将x插在相应的位置，要求数组仍然有序。（假设数组递增）

procedure x;
var i,len,j:integer;
begin
readln(x);
while (a[len]=0) do dec(len);//求数组长度
for i:=1 to len do
begin
if a[i]=x then
begin
for j:=i+1 to len do a[j-1]:=a[j];
break;
end;
if a[i]>x then
begin
for j:=len downto i do a[j+1]:=a[j];
a[i]:=i;
break;
end;
end;
end;
end;