Pascal输入十个数,打印出最大和最小的数

程序如下,DELPHI下调试通过，应该适应各种PASCAL：

{$apptype console}
program test;
var x,max,min,i:integer;
begin
write('输入10个数:');
read(x);max:=x;min:=x;
for i:=1 to 9 do
begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln('最大',max);
writeln('最小',min);
end.

现写的，没有调试，有错误就请楼主改正吧。
var x,max,min,i:integer;
begin
write('Input 10 numbers::');
for i:=1 to 10 do begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln('the max=',max);
writeln('the min=',min);
end.
应该没有错误。

program test;
var a:array[1..10] of integer;
i,max,min:integer;
begin for i:=1 to 10 do read(a[i]);
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('the ma