Dynamické pole dynamických polí
4     
4 
procedure TGraf.zmenVahuHrany(c1,c2:integer; v:TVaha);
begin
   if (c1<=high(g)) and (c2<=high(g)) then
      g[c1].zmenVahuHrany(c2,v);
end;
function TGraf.jeHrana(c1,c2:integer):boolean;
begin
    if (c1<=high(g)) and (c2<=high(g)) then
          Result:=g[c1].jeHrana(c2) else Result:=false;
end;