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

program summa;
const
  n= 100;
 
function Max(var x:array[1..n] of integer): integer;
begin
  var b:=x[1];
  for var i:=1 to n do
    if x[i]>max then b:=x[i]; 
    Result := i;
end;
 
function Min(x: array[1..n] of integer): integer;
begin
  var b:=x[1];
  for var i:=1 to n do
    if x[i]<b then b:= x[i];
    Result := i;
end;
 
function Summ(x: array[1..n] of integer): integer;
begin
  if Min(x) < Max(x) then 
    for var i:= Min(x) to Max(x) do 
      Result += x[i] else
    for var i:= Max(x) to Min(x) do 
      Result += x[i];    
end;
 
begin
  var x: array[1..n] of integer;
  writeln('введите последовательность чисел');
  read(x[i]);
  
  
  
  write('сумма = ', Summ(x));
  
end.

program summa;
var a,i:integer;
begin
  for i:=1 to 100 do
    a:=i+a;
    write(a);
    readln;
end.

program summa;
var a,i,x:integer;
begin
  write('Введите первое число суммы ');
  readln(x);
  for i:=x to x+100 do
    a:=i+a;
    writeln('Сумма равна ',a);
    readln;
end.

program summa;
const n=10;//вводить с клавы 100 чисел утомительно
type mas=array[1..n] of integer;
//поиск индекса максимального 
function Max(var x:mas): integer;
begin
  var b:=1;
  for var i:=2 to n do
  if x[i]>x[b] then b:=i; 
  Result := b;
end;
//поиск индекса минимального  
function Min(x:mas): integer;
begin
  var b:=1;
  for var i:=2 to n do
  if x[i]<x[b] then b:=i;
  Result := b;
end;
 
function Summ(x:mas;a,b:integer): integer;
begin
  if a<b then 
    for var i:= a to b do 
      Result += x[i] else
    for var i:= b to a do 
      Result += x[i];    
end;
var x:mas;
    a,b:integer; 
begin
  writeln('введите последовательность чисел');
  for var i:=1 to n do
  read(x[i]);
  writeln;
  a:=Min(x);
  b:=Max(x);
  writeln('Минимум =',x[a],' его индекс=',a);
  writeln('Максимум=',x[b],' его индекс=',b);
  write('Сумма от минимального до максимального=',Summ(x,a,b))
end.