pascal编写一个程序

var n,i,min,max,maxi,mini,s:integer; x:array[1..100] of integer; ans:real; begin readln(n); for i:=1 to n do read(x[i]); min:=100;max:=0; for i:=1 to n do begin if x[i]>max then begin max:=x[i];maxi:=i;end; if x[i]<min then begi