题目描述任意输入n个整数，把它们的最大值，最小值求出来.输入输入只有一行，包括一个整数n(1<=n<=20),后面跟着n个数.输出输出只有一行,包括2个整数。样例输入5 1 99 3 6 0样例输出99 0。写的程序如下：
program bsg;
var
n,x,max,min,i:longint;
begin
read(n);
read(x);
max:=x;
min:=x;
for i:=1 to n do
begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln(max,' ',min);
end.
但运行时，输入值要重复输入两次。如输入：3 3 2 1 。回车后，没有直接运行，而是要再输入一遍3 3 2 1 ，才能得到正确结果，3，1。问题出在什么地方，怎么改呢？
program bsg;
var
n,x,max,min,i:longint;
begin
read(n);
read(x);
max:=x;
min:=x;
for i:=1 to n do
begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln(max,' ',min);
end.
但运行时，输入值要重复输入两次。如输入：3 3 2 1 。回车后，没有直接运行，而是要再输入一遍3 3 2 1 ，才能得到正确结果，3，1。问题出在什么地方，怎么改呢？
