我是一名教师，考职称有一道题是程序改错题，希望有人帮助我改一下，题目如下：
　　
　　请阅读下列QBASIC语言源程序，根据题意，回答问题。
　　1.（申报中学一级职称教师做）下述程序是特殊元素的顺序查找，找出最小值和最大值。有几处错误请予更正，在不改变程序行数的情况下，使程序简洁，并写出输出结果。
　　DECLARE SUB Fun (A!(),n!)纠错
　　OPTION BASE 1
　　n = 13
　　DIN A(n)
　　FOR i = 1 TO n-2
　　READ A(i)
　　NEXT
　　DATA 2,5,4,1,6,2,7,3,2,2,9,4
　　CALL Fun(A(n),(n))
　　PRINT A(12),A(13)
　　END
　　SUB Fn(A(n),n)
　　mx = 1 : mn=1
　　FOR k = 1 TO n-2
　　IF (A(k) > A(mx)) THEN
　　mx = k
　　ELSE A(k) < A(mn) THEN
　　mn = k
　　END IF
　　NEXT
　　A(n-1) = A(mn) A(n) = A(mx)
　　END
　　输出结果是： ——————————