... begin G.SoDinh:=G.SoDinh+1; Setlength(G.DSDinh,G.SoDinh); G.DSDinh[G.SoDinh-1].ToaDo.X:=x; G.DSDinh[G.SoDinh-1].ToaDo.Y:=y; G.DSDinh[G.SoDinh-1].Ten:='T' + InttoStr(G.SoDinh); VeDoThi(G,Pic,imagelist1); ... Vecung(Pic,G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, TrongSo(DuongDi[i],DuongDi[i+1]).Gia,True,RGB(255,0,0),RGB(0,0,255)) //Veline(G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, ... i,N,Start:integer;Index:Array of integer;beginFor i:=DinhDown to G.SoDinh-2 do G.DSDinh[i]:=G.DSDinh[i+1];G.SoDinh:=G.SoDinh-1;Setlength(G.DSDinh,G.SoDinh);152Setlength(Index,G.SoCanh);N:=0;Start:=-1;For...