排队接水

题目描述
有n个人在一个水龙头前排队接水，假如每个人接水的时间为Ti，请编程找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。

输入输出格式
输入格式：
输入文件共两行，第一行为n；第二行分别表示第1个人到第n个人每人的接水时间T1，T2，…，Tn，每个数据之间有1个空格。
输出格式：
输出文件有两行，第一行为一种排队顺序，即1到n的一种排列；第二行为这种排列方案下的平均等待时间(输出结果精确到小数点后两位)。

输入输出样例
输入样例#1：
10
56 12 1 99 1000 234 33 55 99 812
输出样例#1：
3 2 7 8 1 4 9 6 10 5
291.90

说明
这题就是把数排一遍（序号再用一个数组一起跟着排），然后要累加起来，就输出了。
其实也不是很难，认真做就行了。

程序如下：

var
  n,i,j,m:longint;
  a,b:array[1..10000]of longint;
  r:real;
begin
  readln(n);
  for i:=1 to<