求救老师布置的题目，不会写！！

★★★★编程输出10个[50~85]区间的随机数，输出这10个数，计算出总和与平均数，并输出最大数和最小的数。

var max,min,i,a,sum:longint;
begin
  randomize;
  max:=-maxlongint;
  min:=maxlongint;
  sum:=0;
  {以上四行为初始化}
  for i:=1 to 10 do
  begin
   a:=random(100);{随机产生一个0—99的自然数}
   if a>max then max:=a;{如果输入数据比当前最大值大，那么将当前最大值更新为该数据}
   if a<min then min:=a;{同理，更新当前最小值}
   sum:=sum+a;{把前几个数据和加上该数据，求得目前数据和}
  end;
  writeln('Max: ',max);{输出最大值}
  writeln('Min: ',min);{输出最小值}
  writeln('Sum: ',sum);{输出数据和}
  writeln('Ave: ',sum/10:0:0);{计算平均值并输出}
end.