Динамические струк. данных, модуль, спасите :-( Опции

[Анна]

Люди, помогите пожалйуйста мне.
Прочитала это: http://forum.pascalnet.ru/index.php?showt...0&st=0&p=26901& и это: http://forum.pascalnet.ru/index.php?showtopic=2706
Очень плохо все поняла

Есть задача:

Все элементы в массиве С [1..30] меньше среднеарифметического положительных чисел заменить на максимальное значение массива.
Организовать это всё с помощью функции или процедуры, находящейся в модуле. Использовать линамические переменные


Что-то написала, но имхо чушь

 unit MyMod;
interface
procedure qwe (c: array [1..30] of integer);
var
i,temp: integer;

for i:=1 to 30 do
if c[i] > 0 then temp:=temp+c[i]; {среднеарифметич. .. как дальше?}

=-=-=-=-=-=-=-=-=-=-=-=-=-=

if c[i] > temp then c[i] := max