TVrchol = class
private meno:string; x,y:integer;
sus:array of THrana;
function
indexHrany(c:integer):integer;
public constructor
Create(m:string; xx,yy:integer);
procedure pridajHranu(c:integer;
v:TVaha);
procedure zrusHranu(c:integer);
procedure zmenVahuHrany(c:integer;
v:TVaha); overload;
procedure zmenVahuHrany(s:THrana;
v:TVaha); overload;
function jeHrana(c:integer):boolean;
end;