ak
je v každom vrchole nejaká informácia:
type
TGraf = class
g:array[TVrcholy]
of
record
//
class
sus:set
of TVrcholy;
meno:string;
x,y:integer;
end;
constructor Create;
procedure pridajHranu(a,b:TVrcholy);
procedure zrusHranu(a,b:TVrcholy);
function
jeHrana(a,b:TVrcholy):boolean;
end;