Дана последовательность n различных целых чисел. Найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числа) — Pascal(Паскаль)

program gg;
uses crt;
const n=7;
var a:array[1..n] of integer;
    s,g,min,max,i:integer;
begin
clrscr;
for i:=1 to n do begin
a[i]:=random(20);
write(a[i],' ');
end;
max:=1;
for i:=1 to n do begin
if a[i]>a[max] then
max:=i;
end;
writeln('номер максимального элемента массива',' ',max);
min:=1;
for i:=1 to n do begin
if a[i]<a[min] then
min:=i;
end;
writeln('номер минимального элемента массива',' ',min);
s:=0;
g:=0;
if max>min then begin
for i:=min to max do begin
s:=s+a[i];
end;
write('s=',s);
end;
if max<min then begin
for i:=max to min do begin
g:=g+a[i];
end;
write('g=',g);
end;
readln;
end.