как посчитать длину пути?

[lisa007x]

вроде пути выводит правильно,но никак не получается посчитать длину пути, для этого наверное нужен новый массив но не могу связать его с матрицей весов.
я пытаюсь вывести все пути и соответственно для каждого нужна длина пути.
for i:=1 to p-1 do
x:=x+' '+IntToStr(road[i]);
x:=x+' '+'='+inttostr( Paths[i]);
listbox2.Items.Add(x);

где Paths: array [1..8] of integer; получается просто массив ни с чем не связанный.
помогите пожалуйста.