построение минимального дерева остова

[Сyberbitch]

Доброго времени суток. Значится имеется программа для подсчёта минимального дерева остова по алгоритму краскаля, но вот беда. Программа почему-то не считает до конца, и в итоге выводит неправильное значение. Помогите исправить данную ошибку. Буду очень благодарен.

const
n = 9;
type
vekt = array[0..n,0..n] of boolean;
const
GR: array [0..n, 0..n] of integer = (
(0,1,0,3,0,0,0,0,0,0),
(1,0,5,0,2,0,0,4,0,2),
(0,5,0,0,0,1,0,0,0,3),
(1,0,0,0,0,0,0,5,3,0),
(0,2,0,0,0,4,0,0,0,0),
(0,0,1,0,4,0,4,0,0,5),
(0,0,0,0,0,4,0,2,0,0),
(0,4,0,5,0,0,2,0,1,0),
(0,0,0,3,0,0,0,1,0,0),
(0,2,3,0,0,5,0,0,0,0));
 
 
var
a:array of integer;
x, sum, c, i1, i, j: integer;
b:array[0..n] of boolean;
v:vekt;
 
begin
for i:= 0 to n do begin
write('Вершиина: ',i,' - ');
for j:= 0 to n do begin
write(gr[i,j],' ');
if (v[i,j] = false) and (gr[i,j] <> 0) then begin
v[i,j]:=true;
v[j,i]:=true;
inc(c);
SetLength(a,c);
a[i1]:=gr[i,j];
inc(i1);
end; end;
writeln;
end;
 
writeln;
writeln;
 
for i:=0 to c-1 do for j:=0 to c-2 do
if a[j] > a[j+1] then begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
 
for i1:=0 to c-1 do
for i:=0 to n do
for j:=0 to n do
if (a[i1] = gr[i,j]) and (b[j] = false) then
begin
v[i,j]:=true;
v[j,i]:=true;
b[j]:=true;
b[i]:=true;
writeln(i+1,'->',j+1);
sum:= sum + gr[i,j]; end;
 
writeln;
writeln('Вес дерева остов: ', sum); writeln;
end.