Неправильно строит граф - Delphi - Ответ 7792907

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Screen: TImage;
    procedure Button1Click(Sender: TObject);
    procedure LoadGraph;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type Vertex = record                                {Вершина графа}
Marked  : Boolean;                              {индикатор состояния}
DistFromStart :Integer;                         {расстояние от с тартовой вершины}
PrevVertex :Integer;                                {предыдущая вершина}
id : Integer;
x, y : Integer;
end;
 
const StartVertex = 0;                              {стартовая вершина}
      FinishVertex = 7;                             {финишная вершина}
 
var
  Form1: TForm1;
  M : array of array of Integer;
  N : Integer;
  V : array of Vertex;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i         :Integer;                             {счетчик цикла}
    NotMarked :Integer;                             {кол-во неотмеченных вершин}
    vm, pv    :Integer;                             {индекс вершин}
    MinDist   :Integer;                             {текущее минимальное расстояние}
begin
    LoadGraph;                              {загрузить граф}
    Form1.Screen.Canvas.Brush.Color := clWhite;             {очистить экран}
    Form1.Screen.Canvas.FillRect(Rect(0,0,600,400));
 
    for i := 0 to N - 1 do
    begin
      V[i].Marked := false;                         {ни одна вершина не отмечена}
      V[i].DistFromStart :=M[StartVertex,i];                {начальное расстояние}
end;
 
V[StartVertex].Marked :=true;                           {отметить стартовую вершину}
V[StartVertex].PrevVertex := -1;                        {у стартовой вершины нет предыдущей}
NotMarked := N - 1;                             {начальное кол-во неотмеченных вершин}
 
while NotMarked <> 0 do                             {пока есть неотмеченные вершины}
begin
    MinDist := 10000000;
    for i := 0 to N - 1 do
    if not V[i].Marked and (V[i].DistFromStart < MinDist) then
    begin                                   {найти неотмеченную вершину}
      vm := i;                              {С мин. значением DistFromStart}
      MinDist := V[i].DistFromStart;
    end;
    V[vm].Marked := true;                           {отметить её}
    NotMarked := NotMarked - 1;
 
    for i := 0 to N - 1 do
      if not V[i].Marked then                       {цикл по всем неотмеченным вершинам}
        if V[i].DistFromStart > V[vm].DistFromStart + M[vm,i] then
        begin
        V[i].DistFromStart := V[vm].DistFromStart + M[vm,i];
        V[i].PrevVertex := vm;
        end;
end;
 
 
Form1.Screen.Canvas.MoveTo(V[FinishVertex].x, V[FinishVertex].y);
 
pv := V[FinishVertex].PrevVertex;                       {ввод полученного маршрута}
repeat
    Form1.Screen.Canvas.LineTo(V[pv].x, V[pv].y);
    pv := V[pv].PrevVertex;
until pv = -1;
 
 
Form1.Screen.Canvas.Brush.Color := clRed;                   {ввод вершин графа}
for i := 0 to N - 1 do
    Form1.Screen.Canvas.FillRect(Rect(V[i].x - 5, V[i].y - 5,
                      V[i].x + 5, V[i].y + 5));
end;
 
procedure TForm1.LoadGraph;
var F    : TextFile;
    i, j : Integer;
begin
  AssignFile(F, 'graph.txt');
  FileMode := 0;
  Reset(F);
 
  ReadLn(F, N);
  SetLength(M, N, N);
  SetLength(V, N);
  for i := 0 to N - 1 do
    ReadLn(F, V[i].x, V[i].y);
  for i := 0 to N - 1 do
      for j := 0 to N - 1 do
      Read(F, M[i,j]);
      CloseFile(F);
end;
 
 
end.