Мне нужно сделать процедуру, но пока не получается. А условие такое: написать процедуру, строящую списковое представление заданного графа X.
Кол-во вершин р графа является параметром процедуры, передаваемым в неё по значению.
procedure N(p:integer;var graph:refnode);
...........................................................
граф X задан следующим образом (см. в добавленном файле)