Class Перестановка
    Inherits List(Of List(Of Integer))
    Dim a() As Integer
    Private Sub New(ByVal n As Integer)
        ReDim a(0 To n - 1) : For j = 0 To n - 1 : a(j) = j + 1 : Next j
        Do
            Me.Add(a.ToList)
        Loop Until Перестановка(n) = 0
    End Sub
    Function Перестановка(ByVal n As Integer) As Integer
        Dim i As Integer, k As Integer, t As Integer, tmp As Integer
        k = n - 2
        Do While k >= 0
            If a(k) < a(k + 1) Then Exit Do
            k -= 1
        Loop
        If k = -1 Then
            Return 0
            Exit Function
        End If
        t = n - 1
        Do While t >= k + 1 And a(k) >= a(t)
            t -= 1
        Loop
        tmp = a(k) : a(k) = a(t) : a(t) = tmp
        For i = k + 1 To (n + k) \ 2
            t = n + k - i
            tmp = a(i) : a(i) = a(t) : a(t) = tmp
        Next i
        Return i
    End Function

    Dim Сорт As Integer = 0
    Private Function СортироватьТаблицу(ByVal Таб As Таблица) As Boolean
        Dim Группа = From z In Таб.Строки Order By z.Заказ Ascending Group By z.Заказ Into Count()
        Dim Сч As Integer = -1
        For Each Item In Группа
            Сч += 1
            Dim Заказ As Integer = Item.Заказ
            Dim НовыйID As Integer = Me.Item(Сорт)(Сч)
            Dim s As List(Of Таблица.Строка) = Таб.Строка.FindAll(Function(x) x.Заказ = Заказ)
            For Each Item2 In s
                Item2.Пачка = НовыйID
            Next
        Next
        Сорт += 1
        If Сорт < КолГрупп.Count Then
            Return True
        Else
            Сорт = 0
            Return False
        End If
    End Function
End Class