谁能帮我用VFP编：输入正实数值中最大值和最小的数 要求：随意给出数字进行比较，但不能少于5个以上

SET TALK OFF
CLEAR
input "请输入要比大小数的个数(大于等于5个)" to i
DIMENSION a(i)
FOR j =1 TO i
input "请输入第"+str(j)+"个数" to a(j)
NEXT
maxj=a(1)
minj=a(1)
FOR j=2 TO i
IF a(j)>=maxj
maxj=a(j)
ENDIF
IF a(j)<=minj
minj=a(j)
ENDIF
next
? "最大数为:",maxj
? "最小数为:",minj
SET talk ON