未知错误 求解

var a:array[0..50000,0..50000] of boolean;
b,c:array[0..50000] of integer;
d:array[0..50000] of integer;
q:array[0..50000] of boolean;
i,n,m,u,v,t,p:longint;
procedure print;
var i,j:longint;
begin
t:=0;
for i:=1 to p do
begin
if b[d[i]]=t then inc(c[d[i]]);
inc(t);
end;
end;
procedure dfs(x:longint);
var i,j,k:longint;
begin
q[x]:=true;
inc(p);
d[p]:=x;
if x=v then print
else
for i:=1 to n do
if (a[x,i])and(not q[i]) then
dfs(i);
q[x]:=false;
dec(p);
end;
begin
//assign(input,'running.in');
//assign(output,'running.out');
//reset(input);
//rewrite(output);
readln(n,m);
for i:=1 to n-1 do
begin
readln(u,v);
a[u,v]:=true;
a[v,u]:=true;
end;
for i:=1 to n do
read(b[i]);
for i:=1 to m do
begin
read(u,v);
t:=0;
p:=0;
fillchar(d,sizeof(d),0);
dfs(u);
end;
for i:=1 to n do
write(c[i],' ');
//close(input);
//close(output);
end.

显示这个是什么问题 tmpr36JCe.pas(61,1) Fatal: Internal error 200603014

Fatal: Compilation aborted