Найти остовное дерево минимальной длины.

[Mollerat]

Всем привет! помогите плиз с задачей.

Дана плоская страна и в ней n городов. Нужно соединить все города телефонной связью так, чтобы общая длина телефонных линий была минимальной. В терминах теории графов Прима-Краскала выглядит следующим образом: Дан граф с n вершинами: длины ребер заданы матрицей (а[i,j]), i,j =1,..,n. Найти остовное дерево минимальной длины.

Имеется вот такой код:

{$APPTYPE CONSOLE}
var MinPut:word;
 Goroda:array[1..10,1..10]of byte;
procedure recursiya(uv,ug,PP:byte);
begin
 PP:=PP+goroda[UV,UG];//Увеличить пройденный путь
 if UV=10 then begin//Если дошли до конца
      if PP<MinPut then MinPut:=pp;//Если пройденный путь < Минимального, то минимальный := пройденный путь.
    end;
 if UG<10 then recursiya(UV,UG+1,PP) else{Если не дошли до конца по горизонтали, то проходим вправо}
 if UV<10 then recursiya(UV+1,1,PP);{Иначе если не дошли до дна, то то спускаемся ниже на один уровень}
end;

var i,j:byte;
begin
 for i:= 1 to 10 do
 for j:= 1 to 10 do
 goroda[i,j]:=i+j;//Заполнения массива городов
 MinPut:=65535;//Минимальный путь.
 Recursiya(1,1,0);{Вызов подпрограммы}
 WriteLn(MinPut);
 ReadLn;
end.

Но он выдает только число 2. В чем ошибка?

В заранее спасибо.