Пожалуйста !!!Помогите с задачей !!!очень надо (((

Вот сама задача, не могу дописать (( Пытаюсь, пытаюсь. . Помогите пожалуйста (((
Вот условие :

Заданный массив целых чисел делится на три части двумя элементами: максимальным и минимальным. Определите сумму элементов в каждой части массива. Используй те процедуры для ввода и вывода значений элементов массива. Используйте функции для нахождения минимального и максимального элементов массива, а также подсчета элементов массива в указанной части (в суммы элементов частей массива максимальный и минимальный элементы не включаются) .
Ужасная и недописанная программа :

program eee;
const n=20;
var
a:array[1..n]of integer;
i,sum1,sum2,sum3,imax,imin:integer;
procedure MAX(imax:integer);
var i,max:integer;
begin
max:=a[1];
imax:=1;
for i:=2 to n do
if a>max then
imax:=i
else
imax:=1;
end;
procedure MIN (imin:integer);
var i,min:integer;
begin
min:=a[1];
imin:=1;
for i:=2 to n do
begin
if a);
end;
begin
sum1:=0;
sum2:=0;
sum3:=0;