В чем ошибка? - VB (170521)

Private Sub Form_Load()
Dim n, max, m As Integer
Input n
Dim a(n) As Integer
For i = 1 To n
Input a(i)
Next i
For i = 1 To n - 1
If a(i) > a(i + 1) Then
While (a(i) > a(i + 1))
m = m + 1
i = i + 1
whend
End If
If m > max Then
max = m
End If
Next i
End Sub

dim s,x,f,n sa integer
input n
dim a(n) as integer
For i=1 to n
 input a(i)
 s=s+a(i)
next i
s=s/n
for i=1 to n
 if a(i)>x and a(i)<s them
 x=a((i)
 end if
 if a(i)<f and a(i)>s then
 f=a(i)
 end if
next i
if (s-x)>(f-s) then 
print f
else
 print x
end if