Как найти сумму чисел в промежутке элементов массива?

Program z1;
var Z:array [1..15] of integer;
MAX,MIN,S,i:integer;
Begin
S:=0;
Randomize;
writeln('massiv Z(15)');
For i:=1 to 15 do
 begin
Z[i]:=random(99)+1;
Write (Z[i]:4);
end;
Writeln;
MAX:=1;
MIN:=100;
For i:=1 to 15 do
begin
if MAX<Z[i] then begin
MAX:=Z[i];
end;
if MIN>Z[i] then begin
MIN:=Z[i];
end;
end;
If (Z[i]>MAX) and (Z[i]<MIN) then
begin
S:=S+Z[i];
end;
Writeln('S=', S:2);
Writeln('MIN=', MIN:2);
Writeln('MAX=', MAX:2);
readln
end.

program z1;
uses crt;
var z:array [1..15] of integer;
    max,min,s,i,imx,imn:integer;
begin
clrscr;
randomize;
writeln('massiv Z(15)');
for i:=1 to 15 do
 begin
   z[i]:=random(101);
   write (z[i]:4);
 end;
writeln;
max:=z[1];imx:=1;
min:=z[1];
for i:=1 to 15 do
 begin
  if max<z[i] then
   begin
    max:=z[i];
    imx:=i;
   end;
  if min>z[i] then
   begin
    min:=z[i];
    imn:=i;
   end;
 end;
s:=0;
if imn<imx then
 for i:=imn+1 to imx-1 do
 s:=s+z[i]
else
 if imn>imx then
 for i:=imx+1 to imn-1 do
 s:=s+z[i];
writeln('MIN=',min,' index=',imn);
writeln('MAX=',max,' index=',imx);
writeln('S=',s);
readln
end.