我用前向星存的双向图，spfa宽搜枚举所有体力允许前提下可以到达的路径，如果不能到达就输出-1，可是为什么会挂掉，而且没有超时，重点帮我看看我的SPFA，是不是扩展节点出问题了，求救啊

program conglin;

var

e:array[1..10002] of record

s,k:longint;

end;

a,b,w,l:array[1..10002] of longint;

f:array[1..10002] of longint;

q:array[1..1000000] of record

s,k,data:longint;

end;

m,n,i,s,t,k,j,min:longint;

procedure sort(ll,rr:longint);

var

temp,i,j,x:longint;

begin

i:=ll;

j:=rr;

x:=a[(i+j) div 2];

repeat

while a[i]x do dec(j);

if ij;

if i