Pole množín susedov
constructor TGraf.Create;
var
i:TVrcholy;
begin
for i:=low(TVrcholy) to high(TVrcholy) do g[i]:=[];
end;
procedure
TGraf.pridajHranu(a,b:TVrcholy);
begin
g[a]:= g[a] + [b];
g[b]:= g[b] + [a]; // pre neorientovaný graf
end;