Массив из многочленов второго степеня.(Delhpi/Pascal) Опции

[Wild_klas]

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

Как в массив записать многочлены? Через функцию можно?
Моя попытка:
Код:

Function Mnogochlen(m1,m2,m3,x:real):real;
Begin
M1:=3*(x*x)+4*x+7;
M2:=6*(x*x)-8*x+3;
M3:=4*(x*x)-x+1;
End;

Type Massiv=array [1..10] of integer;
Const M:massiv of mnogochlen =(M1,m2,m3);

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