FoxPro/Visual FoxPro - Crear un programita

nesecito que por favor me ayuden a crear un programita en visual fox pro. el problema es el siguiente: "desarrollar un programa que permita introducir 10 numeros y que imprima el mayor de los pares y el menor de los impares" de antemano muchas gracias.

nMen = 99999999
nMay = 0

FOR nI=1 TO 10
...nNum = 0
...@10,10 SAY "Ing. Nº" + str(nI,2) GET nNum
...READ
...IF nNum%2 == 0 && es par
......IF nNum >nMay
..........nMay=nNum
......ENDIF
...ELSE && es impar
......IF nNum < nMen
..........nMen=nNum
......ENDIF
NEXT

? "El mayor de los pares es:" , nMay
? "El menor de los impares es:" , nMen
WAIT

Jeison, ponte a estudiar.