pascal语言:输入n个数,并输出最大的数和最小的数

var
i,n,m,max,min:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlonint;//初始化
for i:=1 to n do
begin
readln(m);//输入一个数,循环n次
if m>max then max:=m;
if m