求救：在PASCAL程序中要用到文件输入输出，具体如何用？请给具体例子，如十一届的“陶陶摘苹果”……

program apple; var a:array[1..10] of integer; n,i,total:integer;beginassign(input,'apple.in');reset(input);assign(output,'apple.out');rewrite(output); for i:=1 to 10 do read(a[i]); readln(n); n:=n
+3
0; for I:=1 to 10 do if n>=a[i] then inc(total); writeln(total); close(output);close(input);End.

谢谢!!!

有没有另外三题的程序?一起给

begin后加上assign（input，‘文件名。格式 ‘）；reset（input）；
assign（output，‘文件名。格式 ‘）；rewrite（output）；
end前加上close（input）；close（output）；