Вывод маршрутов в алгоритме Дейкстры

program DijkstraAlgorythm;
 
const
  inf = 10000;
 
type
  Tvektor = array of integer;
  Tmtrx = array[,] of integer;
  Tvisit = array of boolean;
 
procedure Input(var Mtrx: Tmtrx; var T: text; var N: integer);
begin
  assignfile(T, 'C:\Users\User\Desktop\data1.txt');
  reset(T);
  read(T, N);
  SetLength(Mtrx, N, N);
  for var i := 0 to N - 1 do
    for var j := 0 to N - 1 do
    begin
      read(T, Mtrx[i, j]);
      if Mtrx[i, j] = -1 then
        Mtrx[i, j] := inf;
    end;
  close(T);
end;
 
procedure Print(var Mtrx: Tmtrx; var N: integer);
begin
  writeln('Матрица смежности графа:');
  for var i := 0 to N - 1 do 
  begin
    for var j := 0 to N - 1 do
    begin
      if Mtrx[i, j] = inf then
        write('- ')
      else
        write(Mtrx[i, j], ' ');
    end;  
    writeln;
  end;
end;
 
procedure Dijkstra(Mtrx: Tmtrx; N: integer; var vertex: TVektor);
var
  index, min, v: integer;
  distance: Tvektor;
  visited: Tvisit;
begin
  SetLength(visited, N);
  SetLength(distance, N);
  SetLength(vertex, N);
  visited[0] := true;
  for var i := 1 to N - 1 do
  begin
    distance[i] := Mtrx[0, i];
    vertex[i] := 1;
    visited[i] := false;
  end;
  
  for var count := 0 to N - 1 do
  begin
    min := inf;
    for var i := 0 to N - 1 do
      if (not visited[i]) and (distance[i] <= min) then
      begin
        min := distance[i];
        index := i;
      end;
    for var i := 0 to N - 1 do
      if (distance[index] + Mtrx[index, i] < distance[i]) then
      begin
        distance[i] := distance[index] + Mtrx[index, i];
        vertex[i] := index + 1;
      end;
    visited[index] := true;
  end;            
  
  writeln;
  for var i := 0 to n - 1 do
    write(vertex[i]:5);
  writeln;
  
  write('Длины кратчайших путей из первой вершины до');
  writeln;
  for var i := 1 to N - 1 do 
  begin
    if distance[i] <> inf then
      writeln(i + 1, ': ', distance[i])
    else writeln(i + 1, ': ', 'маршрут недоступен');
  end;
  
 //вывод маршрутов
  write('Маршруты путей из первой вершины до');
  writeln;
  for var i := 1 to n - 1 do
  begin
    v := i + 1;                  
    write(i + 1, ':', v:3);
    repeat
      v := vertex[v - 1];              
      write(v:3);
    until v = 1;
    writeln;
  end;
end;
 
var
  N: integer;
  Mtrx: Tmtrx;
  T: text;
  vertex: TVektor;
begin
  Input(Mtrx, T, N);
  Print(Mtrx, N);
  writeln;
  Dijkstra(Mtrx, N, vertex);
  writeln;
end.

//вывод маршрутов
  write('Маршруты путей из первой вершины до');
  writeln;
  
  for var i := 1 to n - 1 do
  begin
    v := i + 1;                  
    write(i + 1, ': ');
    var s := inttostr(v);
    repeat
      v := vertex[v - 1];              
      s := inttostr(v) + ' → '+ s;
    until v = 1;
    writeln(s);
  end;
end;