Две одномерный целочисленный динамический массив. После каждого максимального элемента вставьте нули - VB

Function Task(A() As integer) As integer ()
Dim R() As integer
      n%=Ubound(A,1)
      max%=A(1)
      For i%=2 to n%
           if A(i%)>max% then max%=A(i%)
      next i%
      k%=0
      For i%=1 to n%
           if A(i%)=max% then k%=k%+1
      Next i%
      Redim R(1 to n%+k%) As integer
      j%=1
      For i%=1 to n%
           R(j%)=A(i%)
           j%=j%+1
           if A(i%)=max% then
              R(j%)=0
              j%=j%+1
           end if
      next i%
      Task=R
End function