Здравствуйте! Зачем в книге в теме "Минимальное остовное дерево" при решении задач методом Крускала вводить массив Rank, ведь это бесcмысленная трата сложности алгоритма и затрачиваемой памяти? Без него программа работает так же, и процедура Link пердельно упрощается.
Procedure Link(x,y : longint);
begin
pred[y]:=x; {или pred[x]:=y;}
end;