Найти кратчайший маршрут, и указать последовательности торговых точек. Графы

Program LR9_Graf;
uses crt;
const MaxN=5;
INF = 1000000000; {бесконечность}
type Matrix = array[1..MaxN,1..MaxN] of longint; {тип матрицы смежности. M[i,j] = true, если существует ребро, идущее от вершины i к j }
 
var Dor:Matrix; Sv:integer; {вершина}
    D:array[1..MaxN] of integer;
 
Procedure Input_Table(var A:Matrix; N:longint);
var i,j:longint;
begin
   Randomize;
   For i:=1 to N do begin
    For j:=1 to N do begin
     A[i,j]:=random(100);
     if (A[i,j]=0) and (i<>j) then A[i,j]:=inf;
    end;
   end;
end;
 
Procedure Output_Table(var A:Matrix; N:longint);
var i,j:longint;
begin
    For i:=1 to N do begin
     For j:=1 to N do begin
      write(A[i,j]:4);
     end;
     writeln;
    end;
end;
 
 
 
procedure SearchDeikstr(var A:Matrix; N,s:integer); {процедура ввода матрицы смежности A(N, N) }
var i,j,v,min:longint; Visit:array[1..5] of boolean; {массив посещенности}
begin
    Visit[s]:=true; {вершина S посещена}
    For i:=1 to N do D[i]:=A[s,i]; {изначальный массив расстояний}
     For i:=1 to N-1 do begin {на каждом шаге находим минимальное решение и пытаемся его улучшить}
      min:=inf;
      For j:=1 to N do
       if ((not Visit[j]) and (D[j]<min)) then begin
        min:=A[i, j]; {минимальное расстояние}
        v:=j; {найденная вершина}
      end;
     end;
    For j:=1 to N do
     if (D[j]>D[v]+A[v, j]) and (D[v]<inf) and (A[v, j]<inf) then D[j]:=D[v]+A[v, j]; {пытаемся улучшить решение.  Если расстояние больше чем сума расстояния до текущей вершины и линии ребра, то уменьшаем его}
    s := v; {новая текущая вершина}
    Visit[v]:=true; {и она отмечается посещенной}
    writeln('Минимальное расстояние= ',min);
end;
 
BEGIN
    clrscr;
    Input_Table(Dor, MaxN);
    Output_Table(Dor, MaxN);
    SearchDeikstr(Dor, MaxN, Sv);
    readkey
END.