Олимпиадная задача по программированию: Таджикские имена

Private Sub Command1_Click()
Cls
n = Val(InputBox("количество имен"))
Dim A(20) As String, s(20) As String, f(20) As String, d(20) As String
o = 1
p = 1
k = 1
 
 
For i = 1 To n
A(i) =LCASE( InputBox("imya"))
Next
 
For i = 1 To n
For j = i To n
If Mid(A(i), 1, 1) = Mid(A(j), 1, 1) Then
    If Mid(A(i), 2, 1) > Mid(A(j), 2, 1) Then
       x = A(i): A(i) = A(j): A(j) = x
    End If
    End If
If Mid(A(i), 1, 1) > Mid(A(j), 1, 1) Then x = A(i): A(i) = A(j): A(j) = x
Next
Next
For i = 1 To n
Print A(i)
Next
For i = 1 To n
    If Right(A(i), 4) = "хуча" Then s(o) = A(i): o = o + 1
    If Right(A(i), 3) = "чон" Then d(k) = A(i): k = k + 1
    If Right(A(i), 3) = "хон" Then f(p) = A(i): p = p + 1
Next
Print "Группа -Хуча"
For i = 1 To o
Print s(i)
Next
Print "группа -чон"
For i = 1 To k
Print d(i)
Next
Print "Группа -Хон"
For i = 1 To p
Print f(p)
Next
 
End Sub

If Right(A(i), 4) = ChrW(1202) & ChrW(1262) & ChrW(1206) & ChrW(1072) Then '  "ҲӮҶа"

hucha = ChrW$(1202) & ChrW$(1262) & ChrW$(1206) & ChrW$(1072)
chon = ChrW$(1206) & ChrW$(1086) & ChrW$(1085)
hon = ChrW$(1093) & ChrW$(1086) & ChrW$(1085)