关于pascal的问题，请各位解答．

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:42:54
创造一个程序，找出最大值和最小值在你所创建的text里面（从windows里面并不是在pascal里），使用procedure或者functions找到最大值和最小值．帮忙解答一下 谢谢

var i,n:integer;
a:array[1..1000] of integer;
input,output:text;

procedure doit;
var i,min,max:integer;
begin
max:=-maxint;min:=maxint;
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;//比较
writeln(output,'max=',max);
writeln(output,'min=',min);
end;

begin{main}
assign(input,'n.in');reset(input);
assign(output,'n.out');rewrite(output);//文件初始化
readln(input,n);//读入数字个数
for i:=1 to n do read(input,a[i]);//读入每个数字
doit;
close(input);close(output);
end.

读一个，比较一下已记录的MAX和MIN