Алгоритм Дейкстры

var f,n,s,i,j,min,p,nmin : longint;
        graph:array [1..1000,1..1000] of longint;
        flag,prev,d : array [1..1000] of longint;
begin
readln(n,s,f); 
for i:=1 to n do
  begin
   flag[i]:=0; 
   prev[i]:=0; 
  end;
for i:=1 to n do
  for j:=1 to n do
   begin
        read( graph[i,j]); 
        if  graph[i,j]=-1 then  graph[i,j]:=maxint div 2; 
   end;
p:=s; 
flag[s]:=1;
for i:=1 to n do
  d[i]:= graph[s,i]; 
for i:=1 to n-1 do
  begin
   min:=maxint div 2; 
   Nmin:=1; 
   for j:=1 to n do 
        if (flag[j]=0)and(d[j]<min) then 
        min:=d[j]; 
        Nmin:=j; 
                end;
   p:=nMin; 
   flag[p]:=1; 
   for j:=1 to n do begin
        if (flag[j]=0)and(d[j]>d[p]+ graph[p,j]) 
        then begin
        D[j]:=D[p]+ graph[p,j]; 
        prev[j]:=p; 
                end;
  end;
if d[f]>=maxint div 2 then writeln(-1)
  else writeln(d[f]);
end.