Связные списки в графах

[Neitrosha]

Построен неориентированный взвешенный граф, необходимо вывести связные списки для вершин. Может ли кто-нибудь скинуть алгоритм выполнения построения связных списков или написать, как можно сделать списки на основе этого куска кода?

procedure TForm1.BitBtn3Click(Sender: TObject);
var w:adr; 
begin
  w:=first[0]; //присваиваем значение первого элемента
  While w<>nil do //пока не пустой выполнять
  begin
     Memo1.Lines.Add(IntTostr(w^.vert)+'+'+IntTostr(w^.vert+1)); //в данном случае .vert - это номер точки графа типа Integer, т.е. связаны между собой точки 1, 2, 3, 4, должно писать тогда 1+2+3+4.
    w:=w^.next;
   end;
end;

в итоге он пишет в ответе 1+2, 3+4.

понимаю, что это из-за w:=w^.next, но не знаю, как сделать так, чтобы он выводил правильно. То ли нужно ввести дополнительный указатель, то ли вообще не знаю что. И не знаю, как сделать так, чтобы он выводил списки для всех вершин, но это ладно пока что.