Dynamické
pole dynamických polí
procedure
TGraf.zrusVrchol(c:integer);
var i,j:integer;
begin
if c<=high(g) then
begin for i:=0 to high(g) do
zrusHranu(i,c);
g[c].Free; for i:=c to high(g)-1 do
g[i]:=g[i+1];
SetLength(g,high(g));
for i:=0 to high(g) do for j:=0 to
high(g[i].sus) do
if g[i].sus[j].cislo>c then
dec(g[i].sus[j].cislo);
end;
end;