Dynamické
pole dynamických polí
function
TVrchol.indexHrany(c:integer):integer;
begin
Result:=high(sus);
while (Result>=0) and
(sus[Result].cislo<>c) do dec(Result);
end;
function
TVrchol.jeHrana(c:integer):boolean;
begin
Result:=indexHrany(c)>=0;
end;