Остовное дерево, в орграфе Опции

[Слай]

Не получается написать программу нахождения любого остовного дерева в ориентированном графе.
Смотрел в FAQ, но то что там есть не помогло. Поиск и гугл тоже юзал...
Помогите, пожалуйста!

[Слай]

Ну, вот что я написал:

{
  =====================
    Poisk lyubogo ostovnogo dereva
  =====================
}
Procedure OTree(v:word);
const n=15;
Var
    stack: Array [1..n] of word;
    i, j, sp, trc: word;
    curV: word;
BEGIN
WIV[v]:=TRUE; {otmechaem, chto posetili vershinu}
for i:=1 to n do
    if (MRX[v,i]=1) and (v<>i) then
       if (WIV[i]=FALSE) then
          begin
               trc:=trc+1;
               Tree[1,yk]:=v;
               Tree[2,yk]:=i;
               count_tree:=count_tree+1;
               yk:=yk+1;
               OTree(i);
          end
       else
          begin
               StTree:=StTree+1;
               writeln('---------------------');
               if (WIV[StTree]=FALSE) then
                  OTree(StTree);
          end;
END;

в главной программе переменные:

var MRX: Array [1..n,1..n] of byte; {matrica smezhnosti}
 { OSTOVNOE DEREVO: }
    Tree: Array [1..2,1..n] of byte;
    WIV: Array [1..n] of boolean;
    itree, jtree: word;
    StTree: word;
    count_tree: word;
    yk: word;

{BEGIN: OSTOVNOE DEREVO}
for itree:=1 to n do
    WIV[itree]:=FALSE;
StTree:=1;
yk:=1;
count_tree:=0;
OTree(StTree);
    for jtree:=1 to count_tree do
        writeln(Tree[1,jtree],' | ',Tree[2,jtree]);
ReadLn;
{END: OSTOVNOE DEREVO}