Найти наибольшую сумму соседних элементов в массиве: Z={0.21; -1.6; 3.15; 21.9; 4.18; 12.9; -2.3; 7.2; 4.5; 6.8; 9.21; 1.7;7.9;-2.4)

Клевер,
ДАЛЬШЕ КАК ПРОДВИГАТЬСЯ, ЕСЛИ Я КОНЕЧНО НАЧАЛО ПРАВИЛЬНО НАПИСАЛ!

Dim Z() As Integer = {0.21, -1.6, 3.15, 21.9, 4.18, 12.9, -2.3, 7.2, 4.5, 6.8, 9.21, 1.7, 7.9, -2.4}
Dim i, S, max As Integer
Randomize()
For i = 1 To 14
Z(i) = Int(Rnd() * 100)
Print(Z(i))
Next i
S = 0
For i = 1 To 2
S = Z(i) + S