Кратчайший путь

[ILovePascal]

Нужно чтобы программа выводила кратчайший путь от точки (x1) до точки (x7) и длину пути.

[Vanta11a]

Наработки где?
А мозг? Зачем сразу в двух разделах?

[ILovePascal]

program min_road;
const
N = 7;
var
map: array[1..N, 1..N] of integer;
road: array[1..N] of integer;
X: array[1..N] of boolean;
len: integer;
c_len: integer;
start, finish: integer;
i, j: integer;
procedure step(s, f, p: integer);
var
c: integer;
begin
if s = f then
begin
len := c_len;
write('Возможный путь: ');
for i := 1 to p - 1 do write(road[i], ' ');
writeln('Длина пути: ', len);
end
else
for c := 1 to N do
if (map[s, c] <> 0) and (not X[c]) and ((len = 0) or (c_len + map[s, c] < len))

then begin
road[p] := c;
X[c] := TRUE;

c_len := c_len + map[s, c];
step(c, f, p + 1);
X[c] := FALSE;
road[p] := 0;
c_len := c_len - map[s, c];
end;
end;

begin

for i := 1 to N do road[i] := 0;
for i := 1 to N do X[i] := FALSE;
for i := 1 to N do for j := 1 to N do map[i, j] := 0;

map[1, 2] := 8;
map[1, 3] := 4;
map[2, 4] := 8;
map[2, 5] := 3;
map[3, 2] := 3;
map[3, 4] := 10;
map[3, 6] := 12;
map[4, 6] := 3;
map[5, 4] := 2;
map[5, 7] := 10;
map[6, 7] := 4;

writeln(Введите входную и выходную вершину: ');
readln(start, finish);
road[1] := start;
X[start] := TRUE;
len := 0;
c_len := 0;
step(start, finish, 2);
end.

Как сделать, что бы паскаль подсвечивал кратчайший путь или как-нибудь его выделял! ?
И еще подскажите каким методом решена задача?