..........

for i:=f[k] to f[k+1]-1 do

if d[k]+e[i]<d[b[i]] then

begin

d[b[i]]:=d[k]+e[i];

..........

主程序里：

qsort(1,m);

for i:=1 to m do if f[a[i]]=0 then f[a[i]]:=i;

f[n+1]:=m+1;

for i:=n downto 1 do

if f[i]=0 then f[i]:=f[i+1];