обработка массива

[lechan]

доброго времени суток!
помогите пожалуйста разобраться с программой
вводится массив 4*4 с клавиатуры, находится максимальный элемент в каждой строке,
выводится квадрат максимального элемента в новый массив

результатом программы должен стать документ, содержащий в себе исходный массив и обработанный

Sub матрица()
Dim a(4, 4) As Integer
Dim b(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim max As Integer

For i = 1 To 4
For j = 1 To 4
a(i, j) = InputBox("введите элемент массива", "ввод массива")
Next j
Next i

s = 0
For i = 1 To 4
For j = 2 To 4
max = a(i, j)
If a(i, j) < a(i, j + 1) Then
max = a(i, j + 1)
k = 0
b(s, k) = max
k = k + 1
End If
Next j
s = s + 1
Next i
For i = 1 To 4
For j = 1 To 1
Selection.TypeText (a(i, j) & Chr(9))
Selection.TypeParagraph
Next j
Next i
End Sub

заранее благодарю!

[doober]

Я так понял,что задание в Ворде надо делать.Подправил косяки

Sub матрица()
        Dim a(4) As Integer
        Dim b(4, 4) As Integer
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim max As Integer

        For i = 1 To 4
                For j = 1 To 4
                        a(i, j) = InputBox("введите элемент массива", "ввод массива")
                Next j
        Next i

        s = 0
        For i = 1 To 4
                For j = 2 To 4
                        max = a(i, j)
                        If max < a(i, j) Then
                                max = a(i, j)
                                k = 0
                                b(s, k) = max^2
                                k = k + 1
                        End If
                Next j
                s = s + 1
        Next i
        For i = 1 To 4
             
                        Selection.TypeText (a(i) & Chr(9))
                        Selection.TypeParagraph
            
        Next i
End Sub

[lechan]

Спасибо, вроде в коде есть ошибки, т.к. не программа не запускается
Я уже разобрался