Процедуру и функцию помогите составить плиз

[Oleg36]

Составить программу содержащую
1) заполнение массива А элементами зачения которых расчитываются по формуле ai=(i+2)*(|i-5|), 1<i<15 из элементов массива
2) расчет элементов массива оформит в функции и процедуре
3) вывести на экран полученный массив и искомую велечину
4) Создать модуль содержащий процедуру и функцию

[alex_fcsm]

const n=15;
var a:array[1..n] of integer;
    i,j:integer;

function Eval(x:integer):integer;
begin
Eval:=(x+2)*(abs(x-5));
end;

procedure Init(var x:array of integer);
var i:integer;
begin
for i:=0 to n-1 do
 x[i]:=Eval(i);
end;

begin
Init(a);
for i:=1 to n do
 write(a[i],' ');
end.

[Oleg36]

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