懂Pascal的进来教我啊

呵呵,我在学校学过一点点,不知对不对,自己试试..这些题我是在学校奥赛班的练习题吧!不过现在退出了!自己自学C++,Pascal只适合教学,

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

刚刚修改过了,也测试成功了!