алгоритм краскала

[Олександр17]

помогите написать алгоритм из визуальным сопровождением

my kod:

Const nmax=10000;
Type TEdge=record
         start,fin:word;
         weight:longint;
         end;
        TList =array[1..nmax] of TEdge;
Procedure buuld_tree(n_v,count:word;list_edge:TList; var n_r:word;var ostrov_tree:TList);
Var color:array [1..nmax] of word;
       i,j,etalon:word;
Begin
      for i:=1 to n_v do color[i]:=i;
      n_r:=0;
      for i:=1 to count do
      if not color[list_edge[i].start] = color[list_edge[i].fin] then begin
              inc(n_r);
              ostrov_tree[n_r]:=list_edge[i];
              etalon:=color[list_edge[i].fin];
              for j:=1 to n_v do
                  if color[j]=etalon
                  then color[j]:=color[list_edge[i].start];
      end;
End.