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

for(l=0;l<N;l++) B[l]=A[l,i];

uses Crt; {D}
const
    N = 5;
    W : array[1..N,1..5] of real= ( (-1, 2, 1,-1,10),
                                    ( 2,-1,-1, 2, 5),
                                    ( 1,-1,-1,-1, 6),
                                    (-1, 2,-1,-1, 2),
                                    (10, 5, 6, 2,-1) );
var
   B        : array[1..N] of real;
   C        : array[1..N] of boolean;
   p,x,y    : integer;
   i : integer; {D}

{ 1. p=x; B[1..n]=-1; B=0; C[1..n]=false; C=true; }
procedure step1;
var
    i : integer;
begin
 for i:=1 to N do
  begin
   B:=-1; C:=false;
  end;
end;

{ 2. для всех вершин смежных с p если B+A[p,i]<B или B<>-1 и C=false,
              B=B+A[p,i] }
procedure step2;
var
   i : integer;
begin
 for i:=1 to N do
  begin
   if (W[p,i]>=0) then
    if ((B<0) or (B+W[p,i]<B)) and (not C) then
     B:=B+W[p,i];
  end;
end;

{3. выбираем j - индекс min B[1..n] для которого C[j]=false
 4. С[j]=true; p=j; }
function step3:boolean;
var
   j,min : integer;
   flag  : boolean;
begin
 flag:=false;
 for min:=1 to N do
  if not C[min] then
   begin
    flag:=true; break;
   end;
 if not flag then
  begin
   step3:=true; exit;
  end;
 for j:=2 to N do
  if not C[j] and (B[min]>B[j]) and (B[j]>=0) then min:=j;
 C[min]:=true; p:=min;
 step3:=false;
end;

begin
 readln(x,y);
 step1; p:=x; B:=0; C:=true;
 repeat
   step2;
   for i:=1 to N do write(B:3:0); writeln;
   for i:=1 to N do write(C,' '); writeln;
   readkey;
 until step3;

 if p=y then
  begin
  end;
end.
{Это была разметка графа.

Далее обратный ход (пиши по аналогии):
1. p=y
2. Вывод p
3. Выбираем j для которого B[j]=B-A[p,j]
4. p=j;
5. Если p<>x к 2}