一道题目 显示运行错误 求大神看下

【样例说明】
第一次操作后，序列为 2
第二次操作后，序列为2 0
第三次操作后，序列为（空）
第四次操作后，序列为（空）
第五次操作后，序列为 5
【数据规模和约定】
20%的数据没有第二个的操作
30%的数据n<=1000
100%的数据n<=500,000,且所有输入的数字都是长整型范围内的非负整数

这是题目

var
n,op,x,i:longint;
a,b,c:array[1..500000]of longint;
begin
readln(n);
readln(op,x);
if op=0 then begin a[1]:=1; b[1]:=1; c[1]:=x; end;
for i:=2 to n do
begin
readln(op,x);
if (op=0) and (x>=c[i-1]) then begin a[i]:=a[i-1]; b[i]:=b[i-1]+1; c[i]:=x; end;
if (op=0) and (x<c[i-1]) then begin a[i]:=a[i-1]; b[i]:=1; c[i]:=x; end;
if (op=1) and (x=0) then begin a[i]:=0; b[i]:=0; c[i]:=0; end;
if (op=1) and (x>0) then begin a[i]:=a[x]; b[i]:=b[x]; c[i]:=c[x]; end;
if a[i]<b[i] then a[i]:=b[i];
end;
for i:=1 to n do writeln(a[i]);
end.

这是我编的 求大神帮忙看下