Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно

program k61;
 
const
  n = 20;
 
var
  i, max, min, s, i2, i3: integer;
  x: array [1..n] of integer;
 
begin
  Randomize;
  for i := 1 to n do 
  begin
    x[i] := random(10);
    write(x[i]:2);
  end; 
 
    max := x[1];
    i2  := 1;
    
    for i := 1 to n do
      if x[i] > max then 
      begin
        max := x[i];
        i2 := i; 
      end; 
      
       min := x[1];
       i3  := 1; 
    
    for i := 1 to n do
      if x[i] < min then 
      begin
        min := x[i];
        i3 := i; 
      end;
      
    s := 0;
   
   if i2 > i3 then
      for i := i3 to i2 do 
        s := x[i] + s 
      else 
      for i := i2  to i3 do 
        s := x[i] + s;  
 
  WriteLn; WriteLn('max=', max, ' min=', min, ' s=', s);
end.

for i := i3 + 1 to i2 - 1 do

Program Lab8;
var
s,t,a,b,c,z:real;
Function F(x,y:real):real;
Begin
F:=((sqr(x)+2*y+3)/6);
end;
Function P(i:integer):real;
begin
If i=1 then P:=sin(0.5) else P:=z*sqr(p(i-1))+p(i-1)+2;
end;
Function H(i:integer):real;
begin
If i=1 then H:=cos(0.5) else H:=3*h(i-1)/(2*z);
end;
Begin
WriteLn ('BBeguTe s,t 4epe3 ENTER');
ReadLn (s,t);
a:=F(s,t);
b:=F(sqrt(s),sqrt(t));
WriteLn ('a= ',a:5:2);
WriteLn ('b= ',b:5:2);
ReadLn;
WriteLn ('BBeguTe z');
ReadLn (z);
c:=sqrt(abs(p(4)-h(6)));
WriteLn ('c= ',c:5:2);
ReadLn;
end.