Dynamické pole dynamických polí
4     
4 
procedure TGraf.pridajHranu(c1,c2:integer; v:TVaha);
begin
    if (c1<=high(g)) and (c2<=high(g)) then
        if not jeHrana(c1,c2) then
        begin g[c1].pridajHranu(c2,v);
            g[c2].pridajHranu(c1,v); //pre neorientovany graf
        end  else   zmenVahuHrany(c1,c2,v);
end;