Задача на создание массива.Паскаль!

[leyurus]

На чемпионате Европы по стрельбе каждый спортсмен, для того чтобы поразить цель,потратил разное кол-во патронов. Сколько в среднем понадобилось патронов, чтобы поразить цель?
Вывести список тех стрелков, кто затратил патронов меньше среднего значения.

[Mad_Cat]

sp:=0;
for i:=1 to n do begin
readln(a[i]);
sp:=sp+a[i];
end;
sp:=sp/n;
writeln(sp:6:2);
for i:=1 to n do
if a[i]<sp then write(i:6);