Отображение ребер графа

unit EXM1;
interface
uses
GraphABC;
Procedure DrawF(SL: array of point; n: byte);
// Procedure DrawT(A: array of point; n: byte);
implementation

Procedure DrawF(SL: array of point; n: byte);


begin
randomize;
SetLength(SL, n); //Устанавливаем длину массива
{ Заполняем массив точек А случайными координатами: }
for var i := 1 to n - 1 do begin
sl[i].X := random(50, WindowWidth - 50); //координата X
sl[i].Y := random(50, WindowHeight - 50) //координата Y
end;
SetPenColor(clGreen); //Цвет кривой
SetPenWidth(3); //Толщина кривой в пикселях

{ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~ }
{ ~~~~~~~~~~~~ ПОДПИСЫВАЕМ ТОЧКИ КРИВОЙ ~~~~~~~~~~~~ }
{ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~ }
SetBrushColor(clYellow); //цвет кружечков
SetPenColor(clBlack); //цвет границы кружечков
SetPenWidth(1); //толщина границы кружечков
SetFontSize(12); //размер шрифта
SetFontColor(clRed); //цвет шрифта
for var i := 1 to n - 1 do
TextOut(sl[i].X, sl[i].Y, i);
for var i := 1 to n - 1 do
Circle(sl[i].X, sl[i].Y, 4); { <-- рисуем кружечки }
end;



{ SetBrushColor(clPink); //цвет области текста
TextOut(20, 20, ' Количество точек: ' n:=n-1,+ n.ToString + ' ');}



{Procedure DrawT(A: array of point; n: byte);
end;}
end.

Uses EXM1;
Uses GraphABC;
const MaxN = 50;
INF = 1000000000; //"бесконечность"

type Matrix = array[1..MaxN,1..MaxN] of longint; //тип матрицы смежности. M[i,j] = true, если существует ребро, идущее от вершины i к j

var
SL: array of point;
A : Matrix; N, S1, S2: integer;
input: text;

procedure Input_Table(var A : Matrix; N : longint; var T : Text); //процедура ввода матрицы смежности A(N, N) из текстового файла T
var i, j : longint;
begin
for i := 1 to N do
begin
for j := 1 to N do
begin
read(T, A[i, j]);
if (a[i,j] = 0) and (i <> j) then a[i,j] := INF; //вершины, которые не связаны ребром, будем обзначать "бесконечностью" ввиду ограничения на вес рёбер
end;
readln(T);
end;
N:=N+1;
drawF(sl,n);
DrawL(Sl,
end;

procedure Deikstr(s, s1 : integer); //s, s1 - искомые вершины (необходимо найти путь от s до s1)
var i, j, v, min, z : longint;
st, c : string;
visited : array[1..MaxN]of boolean; //массив посещённости вершин
D : array[1..MaxN] of longint; //массив кратчайших расстояний
P : array[1..MaxN] of integer; //массив предков, который поможет определить маршрут. p[i] будет содержать предпоследнюю вершину кратчайшего маршрута от s до i

begin

for i := 1 to N do
begin
p[i] := s;
visited[i] := FALSE;
end;
visited[s] := TRUE; //вершина S посещена

for i := 1 to N do D[i] := A[s, i]; //изначальный массив расстояний
D[s] := 0;

p[s] := 0; //

for i := 1 to N-1 do //на каждом шаге находим минимальное решение и пытаемся его улучшить
begin
min := INF;
for j := 1 to N do if (not visited[j]) and (D[j] < min) then
begin
min := D[j]; //минимальное расстояние
v := j; //найденная вершина
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
begin
D[j] := D[v] + A[v, j]; //пытаемся улучшить решение. Если в ней расстояние больше, чем сумма расстояния до текущей вершины и длины ребра, то уменьшаем его.
p[j] := v;
end;
s := v; //новая текущая вершина
visited[v] := TRUE; //и она отмечается посещенной
end;

st := ''; //осталось преобразовать в формат вывода (мы проидёмся по всем вершинам кратчайшего пути от s до s1, но только в обратном порядке)
z := p[s1]; //пока есть корневая вершина
while z <> 0 do
begin
str(z,c);
st := c + '->' + st; //заносим в маршрут
z := p[z]; //переходим к следующей вершине
end;
str(s1,c); //в маршрут записываем начальную вершину
st := st + c;
writeln(st);
end;

BEGIN
assign(input,'input.txt');
reset(input);
readln(input, N, S1, S2);
Input_Table(A, N, input);
close(input);
Deikstr(S1, S2);
END.