Найти сумму элементов S, расположенных между максимальным МАХ и минимальным MIN элементами - Turbo Pascal

Const n=15;
Var A : array [1..n] of integer;
    i, max, min, pos_min, pos_max, s : integer;
begin
Randomize;
For i:=1 to n do A[i]:=random(93)+4;
Writeln('Array A:');
For i:=1 to n do Write(A[i]:3);
Writeln;
max:=A[1];
pos_max:=1;
For i:=2 to n do
    begin
    If (A[i]>max) then
       begin
       max:=A[i];
       pos_max:=i;
       end;
    end;
Writeln('Max=', max);
min:=A[1];
pos_min:=1;
For i:=2 to n do
    begin
    If (A[i]<min) then
       begin
       min:=A[i];
       pos_min:=i;
       end;
    end;
Writeln('Min=', min);
s:=0;
If (pos_max>pos_min) then
   begin
   For i:=pos_min+1 to pos_max-1 do s:=s+A[i];
   end
else
    begin
    For i:=pos_max+1 to pos_min-1 do s:=s+A[i];
    end;
Writeln('S=', s);
Readln;
end.