t_17_13_v1_volkovich

procedure del(T:tree);
      begin
           if (T^.left<>nil) then del(T^.left);
           if (T^.right<>nil) then del(T^.right);
           dispose(T);
      end;
end;