Одномерные массивы в Delphi

[marmarina]

Помогите пожалуйста! Нужно вставить среднее арифметическое значение в средину массива и вывести массив в TLable.

[Mad_Cat]

for i:= n+1 downto n div 2 +1 do
a[i]:=a[i-1];
a[n div 2+1]:=Srednee_arifmeticheskoe;
n:=n+1;
Label.caption:='';
for i:=1 to n do
Label.caption:=' '+floattostr(a[i]);

[Sciv]

1. Среднее арифметическое значение чего? Массива?
2. Если в массиве нечетное число элементов, то что считать "серединой" - справа или слева от среднего (по индексу, не по значению) числа?