求助两道visual foxpro编程题？？？
1、在键盘上任意输入10个数，求其中的最大和最小数，并计算这十个数的平均值。
2、在某个已知的表中查找姓名为“张三”的记录，如果找到了将其删除，如没有找到显示查无此人。
请各位高手通过VF试运行正确后告诉我，感激不敬！！！
参考答案:s=0
for p=1 to 10
INPUT "请输入数值" TO x
s=s+x
if p=1
大=x
小=x
else
if x>大
大=x
endif
if x<小
小=x
endif
endif
endfor
? 大,小 ,s/10
locate for 姓名="张三"
if .not. eof()
delete
else
? "查无此人"
endif
动态调试运行正确