Заданный массив целых чисел делящийся на три части двумя элементами :максимальний и минимальный.Определите сумму элементов в каждой части массива

var a:array[1..100] of integer;
 
procedure InitM(n:integer);
var i:integer;
begin
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(40);
  write(a[i],' ');
 end;
writeln;
end;
 
function FindMax(nk:integer):integer;
var max,i:integer;
begin
max:=a[1];
FindMax:=1;
for i:=1 to nk do
if max<a[i] then
 begin
  FindMax:=i;
  max:=a[i];
 end;
end;
 
function FindMin(nk:integer):integer;
var min,i:integer;
begin
min:=a[1];
FindMin:=1;
for i:=1 to nk do
if min>a[i] then
 begin
  FindMin:=i;
  min:=a[i];
 end;
end;
function SumM(n0,nk:integer):integer;
var sum,i:integer;
begin
sum:=0;
i:=n0;
while i<=nk do
begin
sum:=sum+a[i];
inc(i);
end;
Summ:=sum;
end;
var n:integer;
begin
 readln(n);
 InitM(n);
 writeln('max index=',FindMax(n));
 writeln('min index=',FindMin(n));
if (FindMax(n)>FindMin(n))and(FindMax(n)<=n) then
begin
writeln('I=',SumM(1,FindMin(n)));
writeln('II=',SumM(FindMin(n),FindMax(n))-a[FindMin(n)]);
writeln('III=',SumM(FindMax(n),n)-a[FindMax(n)]);
end;
if (FindMax(n)<FindMin(n))and(FindMin(n)<=n) then
begin
writeln('I=',SumM(1,FindMax(n)));
writeln('II=',SumM(FindMax(n),FindMin(n))-a[FindMax(n)]);
writeln('III=',SumM(FindMin(n),n)-a[FindMin(n)]);
end;
readln;
end.