Pole množín susedov
4     
4 
procedure TGraf.zrusHranu(a,b:TVrcholy);
begin
  g[a]:= g[a] - [b];
  g[b]:= g[b] - [a];       
// pre neorientovaný graf
end;
function TGraf.jeHrana(a,b:TVrcholy):boolean;
begin
  Result:=b in g[a];
end;