блоки графа, найти все двусвязные компоненты графа Опции

[Scorm]

Помогите написать программу, находящую все двусвязные компоненты графа. При этом граф должен быть представлен ввиде Списков Смежности или Матрицы Смежности. Xелп, plzZ!

Есть собственные наработки(пока мало)((см.код)), осталось только двусвязные компоненты отыскать...

Код

uses crt;
const n=4;
type stek=^node;
     node=record
             key:integer;
             next:stek;
     end;
     massiv=array[1..n] of stek;
var spsm:massiv;
    i,j:integer;
    v,sm:integer;
    q:stek;

BEGIN
clrscr;
for i:=1 to n do
  begin
     q:=nil;
     writeln('Введите все смежные вершины вершине ',i);
     readln(sm);
     while sm>0 do begin
        new(spsm[i]);
        spsm[i]^.key:=sm;
        spsm[i]^.next:=q;
        q:=spsm[i];
        readln(sm);
                    end;
  end;
for i:=1 to n do
begin
    write(i,': ');
    while spsm[i]<>nil do begin
                    write(spsm[i]^.key,' ');
                    spsm[i]:=spsm[i]^.next;
                    end;
    writeln;
end;
readln;
END.