.prg文件不存在，求助啊

这是源程序
clear
set udfparms to reference
input "x=" to x
input "y=" to y
declare m(x,y)
p1(m(x,y))
p2(m(x,y))
if n=n1
?n
else
?"no"
endif


procedure p1
parameters m
n=1
for a=1 to y
  for i=1 to x
    if n<m(i,a)  &&这里报错的
      n= m(i,a)
    endif
  endfor
endfor
return n

procedure p2
parameters m
n1=1
for i=1to x
  for a=1 to y
    if n1>m(i,a)
    n1 = m(i,a)
    endif
  endfor
endfor
return n1