Алгоритм Дейкстры поиска кратчайшего пути

const
  maxR=4;   { max reber w grafe }
  maxV=6;   { kol-wo versin grafa }
  Max=2000; { ochen tqvelyj ves }
type
  tRebro = record
    adrs,          { S kakoj swqzan }
    ves : word;    { Ves rebra }
  end;
 
  tArrReb = array[1..maxR] of tRebro;
 
  tVer = record
    Name,            { Nomer versiny }
    metka,           { min rasstoqnie do nee ot A (Name=1) }
    NumR  : word;    { Kol-wo reber }
    visit : boolean; { posechenie versiny }
    Reb   : tArrReb; { Rebra dannoj versiny }
  end;
 
var
  Graf : array[1..maxV] of tVer; { Glob peremennaq dlq procedur }
 
procedure InitGraf;
begin
  with graf[1] do begin
    Name:=1; metka:=0; NumR :=3; visit:=false;
    Reb[1].adrs:=6; Reb[1].ves:=14;
    Reb[2].adrs:=3; Reb[2].ves:=9;
    Reb[3].adrs:=2; Reb[3].ves:=7;
  end;
  with graf[2] do begin
    Name:=2; metka:=max; NumR :=3; visit:=false;
    Reb[1].adrs:=1; Reb[1].ves:=7;
    Reb[2].adrs:=3; Reb[2].ves:=10;
    Reb[3].adrs:=4; Reb[3].ves:=15;
  end;
  with graf[3] do begin
    Name:=3; metka:=max; NumR :=4; visit:=false;
    Reb[1].adrs:=6; Reb[1].ves:=2;
    Reb[2].adrs:=1; Reb[2].ves:=9;
    Reb[3].adrs:=2; Reb[3].ves:=10;
    Reb[4].adrs:=4; Reb[4].ves:=11;
  end;
  with graf[4] do begin
    Name:=4; metka:=max; NumR :=3; visit:=false;
    Reb[1].adrs:=2; Reb[1].ves:=15;
    Reb[2].adrs:=3; Reb[2].ves:=11;
    Reb[3].adrs:=5; Reb[3].ves:=6;
  end;
  with graf[5] do begin
    Name:=5; metka:=max; NumR :=2; visit:=false;
    Reb[1].adrs:=4; Reb[1].ves:=6;
    Reb[2].adrs:=6; Reb[2].ves:=9;
  end;
  with graf[6] do begin
    Name:=6; metka:=max; NumR :=3; visit:=false;
    Reb[1].adrs:=1; Reb[1].ves:=9;
    Reb[2].adrs:=3; Reb[2].ves:=2;
    Reb[3].adrs:=5; Reb[3].ves:=9;
  end;
end;
 
  Function SearchMinVer(var imin : word) : boolean;
  { true - versina najdena, ee nomer w imin }
  var i : word;
  begin
    SearchMinVer:=false; imin:=0;
    i:=1;   { isem perwuj versinu s kotoroj movno sravnivatx}
    while Graf[i].visit and (i<=maxV) do inc(i); { net takih }
    if i>maxV then exit else imin:=i;  { najdena }
 
    for i:=1 to maxV do begin      { poisk min iz ostawsihsq }
      if not Graf[i].visit and (Graf[i].metka<Graf[imin].metka)
      then imin:=i;
    end;
    SearchMinVer:=true;
  end;
 
  Procedure Posesenie(a : word);
  var i,v : word;
  begin
    for i:=1 to Graf[a].NumR do begin            { obhod wseh reber }
      v:=graf[a].metka + graf[a].Reb[i].ves;
      if not graf[graf[a].Reb[i].adrs].visit and { ver kot ne byli posecheny }
      ( v<graf[graf[a].Reb[i].adrs].metka )  then
            graf[graf[a].Reb[i].adrs].metka:=v;  { s umenxsenim ih vesa }
      Graf[a].visit:=true;                       { versuna A posesena }
    end;
  end;
 
var c : word;
 
Begin
  InitGraf;
  while SearchMinVer(C) do Posesenie(c);
  for c:=1 to maxV do writeln(c,' : ',Graf[c].metka);
  readln;
End.