for i:=2 to n do
   if d[i]=0 then d[i]:=inf;
repeat
   ok:=true;
   for i:=1 to m do
      if d[g[i].y]>(d[g[i].x]+g[i].cost) then
             begin
               d[g[i].y]:=d[g[i].x]+g[i].cost;
               ok:=false;
             end;
   until ok;