Как исправить схему на vba

[ElenaGreen]

Добрый вечер уважаемые форумчане! Составила блок-схемы к двум задачам, решение снизу, можете поправить, что тут не так в схемах?

1)Function Task(A() as integer) as integer
S%=0
max%=A(1,1)
for i%=1 to Ubound(A,1)
for j%=1 to Ubound(A,2)
if i%=j% then S%=S%+A(i%,j%)
if A(i%,j%) > max% then max%=A(i%,j%)
next j%
next i%
Task=S%-max%
End Function

схема Zadanie

2) Sub asdf()
Dim mARR(), ArrTOP(), ArrBOTT(), i&, j&, n&, k&
n = CLng(InputBox("Write down your size", , 10))
ReDim mARR(1 To n, 1 To n): ReDim ArrTOP(1 To n * n): ReDim ArrBOTT(1 To n * n)
n = 0: Randomize:
For i = LBound(mARR, 1) To UBound(mARR, 1)
For j = LBound(mARR, 2) To UBound(mARR, 2)
mARR(i, j) = Int((20 - (-10) + 1) * Rnd() + (-10))
Select Case j
Case Is > i: n = n + 1: ArrTOP(n) = mARR(i, j)
Case Is < i: k = k + 1: ArrBOTT(k) = mARR(i, j)
End Select
Next 'j
Next 'i
MsgBox "Top. Max:" & Space(3) & Application.Max(ArrTOP) & Chr(13) & _
"Bottom. Max:" & Space(3) & Application.Max(ArrBOTT)
If Application.Max(ArrTOP) > Application.Max(ArrBOTT) Then _
MsgBox "The TOP more than the BOTTOM"
If Application.Max(ArrTOP) < Application.Max(ArrBOTT) Then _
MsgBox "The BOTTOM more than the TOP"
If Application.Max(ArrTOP) = Application.Max(ArrBOTT) Then _
MsgBox "Equal to each other"
End Sub

схема Задача 4