Фомування списку суміжних вершин

Використовуємо три масива list, next, cursor. В масиві list міститься номер вершини на яку вказує елемент масиву cursor або next. В масиві next знаходиться номер елемента list суміжної вершини. В масиві cursor знаходиться номер останнього запису вершини під номером і в масиві list.

Перебираємо всі суміжні вершини
v:=number; cur:=cursor[v];
while (cur<>0) do begin
        v:=list[cur];
        writeln(v);
        cur:=next[cur];
end;