Метод Прима

[Alister]

Здравствуйте! Меня зовут Антон, я студент. У меня возникла следующая проблема:
При реализации программы использующей алгоритм Прима на языке Pascal в процессе ее выполнения возникает ошибка:
Stack overflow error (Ошибка переполнения стека). Код программы:

<CODE>
Program Algo_Prim;
Const DIMMAX = 100;
INFS = 100;
Type Matrix1 = array[1..DIMMAX, 1..DIMMAX] of Integer;
var i, j, n: Integer; C:Matrix1;
{-----------------------------------------}
Procedure Prima(D:Matrix1);
var
Lowcost:array[1..DIMMAX] of Integer;
Closest:array[1..DIMMAX] of Integer;
i, j, k, min:Integer;
Begin
for i:=2 to n do begin
Lowcost[i]:=D[1, i];
Closest[i]:=1;
end;
for i:=2 to n do begin
min:=Lowcost[2];
k:=2;
for j:=3 to n do
if Lowcost[j]<min then
begin
min:=Lowcost[j];
k:=j;
end;
Writeln(k, Closest[k]);
Lowcost[k]:=INFS;
for j:=2 to n do
if (D[k, j]< Lowcost[j]) AND (Lowcost[j]<INFS) then
begin
Lowcost[j]:=D[k, j];
Closest[j]:=k;
end;
end;
End;
{------------}
BEGIN
Writeln('Enter dimmension of matrix');
Readln(n);
Writeln('Enter a matrix of length of edges');
for i:=1 to n do begin
for j:=1 to n do begin
Read(C[i, j]);
end;
end;
Prima(C);
Readln
END.
</CODE>

Вопрос: где именно я допустил ошибку и в чем конкретно я ошибься?
Заранее благодарю!..

[Goblin]

А можешь описать этот Алгоритм? или ссылку кинь

[puporev]

Максимальные размеры матрицы сократил, ошибка пропала. Хотя что делает программа неясно, поскольку после ввода матрицы ее работа заканчивается.
тьфу ты. ввод неправильно написан. readln нету. Перепиши это место.

Writeln('Enter a matrix of length of edges');
for i:=1 to n do
for j:=1 to n do
Read(C[i, j]);
readln;