Mógłby mi ktoś stworzyć procedury do czegoś takiego:

* utworzenie grafu w implementacji listy sąsiedztwa
* sprawdzenie czy dany ciąg wierzchołków stanowi cykl w grafie skierowanym,
* zamiana grafu skierowanego na nieskierowany (w implementacji listy i macierzy sąsiedztwa),
* usunięcie węzła z grafu.

Mam tak zdefiniowany typ:
type wsk=^wezel;
wezel=record
nr_wezla:wsk;
end;

graf=array[1..n] of wsk;
var
g:graf;
for i:=1 to n do
begin
g[i]:=nil;