Заменить первый отрицательный элемент массива на первый положительный

Dim A(100) As Integer
Dim C(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
 
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
 
Randomize
If n > 0 Then
k = 1
s = 0
For i = 0 To n - 1
A(i) = Int(20 * Rnd - 10)
Picture4.Print A(i)
Next
 
For i = 0 To n
If A(n) > 0 Then
i = pol
End If
Next
 
For i = 0 To n
If A(n) < 0 Then
A(i) = A(pol)
End If
Picture1.Print A(i)
Next 
End If
End Sub

Sub chng(A() as integer)
      i_pos%=-1
      i_neg%=-1
      for i%=1 to to Ubound(A,1)
          if A(i%)>0 And i_pos%=-1 then i_pos%=i%
          if A(i%)<0 And i_neg%=-1 then i_neg%=i%
          if i_pos% > 0 And i_neg% > 0 then Exit for
      next i%
 
      If i_pos% > 0 And i_neg% > 0 then
         A(i_neg%)=A(i_pos%)
      elseIf i_pos% > 0 And i_neg% =-1 then
         Debug.Print "Нет отрицательных"
      elseIf i_pos% = -1 And i_neg% > 0 then
         Debug.Print "Нет положительных"
      else
          Debug.Print "Одни нули..."
      end if
End Sub

   pol=i

   X(n1)=X(p1)

   for i%=1 to Ubound(X,1)
       Debug.print X(i%)
   next i%

Dim A(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
 
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
 
Randomize
If n > 0 Then
For i = 0 To n - 1
A(i) = Int(20 * Rnd - 10)
Picture4.Print A(i)
Next i
End If
 
For i = 0 To n - 1
If A(n) > 0 Then
pol = n
Exit For
End If
Next i
 
For i = 0 To n
If A(i) < 0 Then A(i) = A(pol): Exit For
Next i
 
For i = 0 To n - 1
Picture1.Print A(i)
Next i
 
End Sub

  pol=i ''' я же писал об этом !