Найти самый длинный простой путь в графе.

Program NonReachability;  
     Uses  Crt; 
    Type Uk=^Rebro; {тип – указатель на ребро}
        Rebro=Record    {тип, описывающий ребро графа}
     Ver1, Ver2 : Integer;      {вершины ребра}
     Next: Uk;              {указатель на следующее ребро}
     Bool: Boolean;     {признак прохождения по ребру}
        end;
Var  P, P1:Uk;   
     N, M, i, j, a : Word;
     Way : Set of Byte; {множество достижимых вершин }
{–––––––––––––––––––––––}
Procedure Input;
  Begin     
    Write(' Введите количество вершин :  ');  ReadLn(N);
    Write(' Введите количество ребер :  ');      ReadLn(M);
    P:=nil;   {цепочка ребер пуста}
    For i:= 1 to M do
       begin New(P1); {создание нового ребра}
        Write('Введите 1-ю вершину ', i, ' -го ребра:  ');  Read(P1^.Ver1);
        Write('Введите 2-ю вершину ', i, ' -го ребра:  ');  Read(P1^.Ver2);
        P1^.Bool :=TRUE;  P1^.Next :=P; {прикрепляем новое ребро к началу}
        P:=P1;   {новое ребро становится началом цепочки}
         end;
End; {of Input}
{––––––––––––––––––––––}
Procedure Poisk (i:Byte);
    Var tt:Uk;      {указатель на текущее ребро}
Begin
 Way:=Way+[i];  {добавляем вершину во множество достижимых}
 tt:=p;         {перемещаем указатель на начало цепочки}
 While tt<>nil do {пока не конец цепочки}
  begin If (i=tt^.Ver1) and tt^.Bool    {находим ребро, которое выходит}
    then    {из i-ой вершины,в которой мы не были}
    begin tt^.Bool := FALSE; {отмечаем, что прошли}
     Poisk(tt^.Ver2);    {уходим на вторую вершину}
     tt^.Bool := TRUE;  {снимаем отметку  о посещении }
    end;
    tt:=tt^.Next;
  end;
End; {of Poisk}
BEGIN  ClrScr;
    Input; {ввод графа}
Write('Задайте вершину, для которой ищутся недостижимые вершины: '); ReadLn(A);
    Way:=[];    {обнуляем множество достижимых вершин}
    Poisk(A);   {процедура обхода графа}
    For j:=1 to N do
      If not (j in Way) then WriteLn( j, '-я вершина недостижима из вершины ',  A);
    If Way = [1 .. N] then WriteLn('Все вершины достижимы из вершины ', A);
    ReadLn
END.