Delphi Вычислить среднее арифметическое элементов

[ralex35]

Подскажите,пожалуйста,что добавить или изменить,чтобы среднее арифметическое считало,пока только 0 выдает

Вычислить среднее арифметическое элементов массива Х=(х1, х2, …,xn), расположенные между его минимальным и максимальным значениями

function GetSubStr(st:string; k:integer):string;
var
p, i:integer;
begin
for i:=1 to k-1 do begin
p:=pos(' ', st);
st:=copy(st, p+1, length(st)-p);
end;
p:=pos(' ', st);
if p<>0
then result:=copy(st, 1, p-1)
else result:=st;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
sr:real;
i,n,max,min,maxi,mini,k,s,j:integer;
b:array [1..100] of integer;
begin
n:=StrToInt(edt1.text);
 for i:=1 to n do
 begin
  b[i]:=StrToInt(GetSubStr(Edt2.Text,i));
 end;
max:=b[1];
min:=b[1];
k:=1;
sr:=0;
s:=0;
  for i:=2 to n do
  begin
   if b[i]>max then begin max:=b[i]; end;
   if b[i]<min then begin min:=b[i]; end;
  end;

  if maxi > mini then
    for j:=maxi to mini do
      begin
       s:=s+b[j];
       k:=k+1;
      end
  else
  if maxi < mini then
    for j:=mini to maxi do
      begin
       s:=s+b[j];
       k:=k+1;
      end;
 sr:=s/k;
 Lbl3.Caption:=FloatToStr(sr);
end;
end.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var
sr:real;
i,n,max,min,maxi,mini,k,s,j:integer;
b:array [1..100] of integer;
begin
n:=StrToInt(edit1.text);
 for i:=1 to n do
 begin
  b[i]:=StrToInt(GetSubStr(Edit2.Text,i));
 end;
maxi:=1;
mini:=1;
k:=1;
sr:=0;
s:=0;
  for i:=2 to n do
  begin
   if b[i]>b[maxi] then maxi:=i;
   if b[i]<b[mini] then mini:=i;
  end;
If maxi<mini then
begin
   j:=maxi;
   maxi:=mini;
   mini:=j;
end;
    for j:=mini to maxi do
      begin
       s:=s+b[j];
       k:=k+1;
      end;
 sr:=s/k;
 Label3.Caption:=FloatToStr(sr);
end;

[ralex35]

только считает среднее арифметическое с учетом минимального, не могу сообразить как без учета сделать

[newerow1989]

for j:=mini+1 to maxi-1 do

[ralex35]

Я ввожу массив: 1 2 3 2 2 5 , результат среднего арифметического пишет 1,8, а должно 2,25

[newerow1989]

ralex35, у вас в 1-м посте

k:=1;

а надо

k:=0;

[ralex35]

Спасибо большое

[newerow1989]