procedure MarkSubgraphViaRecursion(Graph: TMathGraph; Top: Integer; TopCountMinus1: Integer; var strMark: string);
procedure MarkSubgraphViaRecursion(Graph: TMathGraph; Top: Integer; TopCountMinus1: Integer; var strMark: string); var i: Integer; begin strMark[Top]:='m'; for i:=0 to TopCountMinus1 do begin if (i<>Top) and (strMark[i]<>'m') and (Graph.Connected[i,Top]) then MarkSubgraphViaRecursion(Graph,i,TopCountMinus1,strMark); end; end;