Есть две задачки. Первую я знаю как делать, но вот не могу правильно составить код

1. Обработка одномерных массивов.
Дан массив из N целых чисел. Расположить в нем положительные числа по возрастанию, а отрицательных по убыванию, не изменяя места положительных и отрицательных чисел.

2. Обработка двумерных массивов (матриц).
Дано потребление электроэнергии в % к плану за каждый месяц года каждым из 8 предприятий. Для каждого месяца определить предприятие с наибольшим потреблением электроэнергии.

1.

Dim a%(), b%, c%, i%, j%, k%, n%
n = InputBox("Введите размерность массива")
ReDim a(1 To n)

Randomize
For i = 1 To n
a(i) = Int(Rnd * 100) - 50
List1.AddItem Str(a(i))
Next i



For i = 1 To n - 1
For j = i + 1 To n
If a(i) >= 0 And a(j) >= 0 Then
If a(j) < a(i) Then
b = a(j)
a(j) = a(i)
a(i) = b
End If
End If
Next j, i


For i = 1 To n - 1
For j = i + 1 To n
If a(j) >= 0 And a(i) < 0 Then
b = a(j)
For k = j To i + 1 Step -1
a(k) = a(k - 1)
Next k
a(i) = b
End If
Next j, i

For i = 1 To n
List2.AddItem Str(a(i))
Next i

вот только он не располагает отрицательные по убыванию. как будет правильно ? заранее спасибо.