Pole množín susedov
type
TVrcholy = 0..max-1
TGraf = class
private
g:array[TVrcholy]
of set of TVrcholy;
public
constructor Create;
procedure pridajHranu(a,b:TVrcholy);
procedure zrusHranu(a,b:TVrcholy);
function jeHrana(a,b:TVrcholy):boolean;
end;