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

uses crt;
const nmax=30;
Type MyArr=array[1..nmax] of integer;
 
procedure Input(var ar:myarr; var n:byte);
var i:byte;
begin
Randomize;
repeat
Write('Введите размер массива: ');
Readln(n);
until n in [1..nmax];
 for i:=1 to n do
  ar[i]:=random(20);
end;
 
procedure Output(var ar:myarr; n:byte);
var i:integer;
begin
 for i:=1 to n do
  Write(ar[i],'  ');
Writeln;
end;
 
function Maximum(a:myarr; n:byte; var k1:byte):integer;
var i:byte;
    max:integer;
begin
 max:=1;
  for i:=1 to n do
   if a[i]>max then
    begin
     max:=a[i];
     k1:=i;
    end;
end;
 
function Minimum(a:myarr; n:byte; var k2:byte):integer;
var i:byte;
    min:integer;
begin
 min:=1;
  for i:=1 to n do
   if a[i]<min then
    begin
     min:=a[i];
     k2:=i;
    end;
end;
 
function Summa(var sum1,sum2,sum3:integer; a:myarr; n:byte):integer;
var i,p1,p2:byte;
begin
Maximum(a,n,p1);
Minimum(a,n,p2);
Writeln('P1=',p1);
Writeln('P2=',p2);
sum1:=0;
sum2:=0;
sum3:=0;
 if p1<p2 then
  begin
   for i:=1 to p1-1 do
    sum1:=sum1+a[i];
   for i:=p1+1 to p2-1 do
    sum2:=sum2+a[i];
   for i:=p2+1 to n do
    sum3:=sum3+a[i];
  end
 else
  for i:=1 to p2-1 do
   sum1:=sum1+a[i];
  for i:=p2+1 to p1-1 do
   sum2:=sum2+a[i];
  for i:=p1+1 to n do
   sum3:=sum3+a[i];
end;
 
procedure Sumvi(a:myarr; n:byte);
var s1,s2,s3:integer;
begin
Summa(s1,s2,s3,a,n);
Writeln('S1=',s1);
Writeln('S2=',s2);
Writeln('S3=',s3);
end;
 
var a:myarr;
    x,i:byte;
begin
ClrScr;
Input(a,x);
Writeln;
Output(a,x);
Sumvi(a,x);
Writeln;
Readln;
end.