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

Формулировка задачи:

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

Program k61;
var
i,max,min,s:integer;
x:array [1..40] of integer;
begin
Randomize;
For i:= 1 to 40 do x[i]:=random(10);
For i:=1 to 40 do write(x[i], ' ');
max:=x[1];
For i:=1 to 40 do
If x[i]>max then max:=x[i];
min:=x[1];
For i:=1 to 40 do
If x[i]<min then min:=x[i];
s:=0;
For i:=min to max do
s:=s+i;
WriteLn ('max= ',max, 'min= ',min, 's= ',s);
end.

Но она неверно воспринимает сумму чисел! Т.е при проверке даже не понимаю, откуда берётся данная сумма. Потом друг переделал

Program k61;
var
i,max,min,s:integer;
x:array [1..40] of integer;
begin
Randomize;
For i:=1 to 40 do x[i]:=random(10);
For i:=1 to 40 do write(x[i], ' ');
max:=x[1];
For i:=1 to 40 do
If x[i]>max then max:=x[i];
min:=x[1];
For i:=1 to 40 do
If x[i]<min then min:=x[i];
s:=0;
for i:=1 to 40 do if (x[i]>=min) and (x[i]<=max) then s:=s+x[i];
WriteLn ('max=',max, ' min=',min, ' s=',s);
end.

. Но и опять не то - опять та же херня. Помогите, пожалуйста! Я не силён в програмировании. А ещё хуже чувствую себя, когда заставляют делать блок-схемы по кодам. Если не затруднит, сделайте и блок-схемку. Буду очень признателен!

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

Листинг программы

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.

Объяснение кода листинга программы

Программа Lab8 начинается с объявления переменных s, t, a, b, c и z типа real. Затем определены три функции: F, P и H. Функция F принимает два аргумента x и y типа real и возвращает значение суммы квадрата x плюс удвоенного значения y, умноженного на 3 и деленного на 6. Функция P принимает один аргумент i типа integer и возвращает значение синуса числа 0.5, если i равно 1, или значение z, умноженного на квадрат p(i-1), плюс p(i-1) и 2, в противном случае. Функция H принимает один аргумент i типа integer и возвращает значение косинуса числа 0.5, если i равно 1, или значение z, деленное на 2, умноженное на h(i-1), плюс h(i-1), в противном случае. Затем начинается основной блок программы, который начинается с вывода сообщения BBeguTe s,t 4epe3 ENTER. Затем считываются значения переменных s и t с помощью функции ReadLn. Далее вызываются функции F и P, передавая в них sqrt(s) и sqrt(t) соответственно, и сохраняются значения a и b в переменные a и b. Затем выводится сообщение a=, а также значение переменной a, используя функцию WriteLn. Следующим шагом вызывается функция H, передавая в нее i=6, и сохраняется значение c в переменную c. Затем выводится сообщение c=, а также значение переменной c, используя функцию WriteLn. Программа заканчивается вызовом функции ReadLn для считывания значения z.