Работа с массивами в Delphi!Помогите пожалуйста!

[SfSpawN]

Задать длину массива целых чисел.Заполнить массив.Написать функцию,которая вычисляет среднее по элементам массива и возвращает массив из элементов исходного массива,меньших среднего.

[IT-man]

function avg(x:array of real;n:integer):real;
var i:integer;
     s:real;
begin
s:=0;
 for i :=1 to n do 
s:=s+x[i];
result :=s/n;
end;

вот для расчета среднего

Написать функцию,которая вычисляет среднее по элементам массива и возвращает массив из элементов исходного массива,меньших среднего

- а для этого процедура нужна имхо

[SfSpawN]

большое спасибо!