Заменить нулями элементы массива между минимальным и максимальным, кроме их самих

procedure TForm3.Button6Click(Sender: TObject);
var
i,max,min,p,b:integer;
begin
Edit4.Text:=' ';
min:=M[1];
max:=M[1];
for i:=1 to n do
begin
if M[i]<min then
begin
min:=M[i];
p:=i;
end;
if M[i]>max then
begin
max:=M[i];
b:=i;
end;
end;
if p<b then
for i:=p+1 to b-1 do
M[i]:=0
else
for i:=b+1 to p-1 do
M[i]:=0;
for i:=0 to n-1 do
Edit4.Text := Edit4.Text + ' ' + IntToStr(M[i]);
end;
end.

procedure TForm3.Button6Click(Sender: TObject);
var i,p,b,x:integer;
begin
p:=1;
b:=1;
for i:=1 to n do //найдем номера мин и макс
if M[i]<min then p:=i
else if M[i]>max then b:=i;
if p>b then //если мин дальше
 begin
  x:=p;
  p:=b; //обменяем местами
  b:=x
 end;
for i:=p+1 to b-1 do  M[i]:=0;//обнулим, если есть что..
Edit4.Text := Edit4.Text + ' ' + IntToStr(M[i]);
end;

procedure TForm3.Button6Click(Sender: TObject);
  var i,p,b,x:integer;
begin
  p:=1;
  b:=1;
  for i:=2 to n do 
  begin
    if M[i]<M[p] then p:=i;
    if M[i]>M[b] then b:=i;
  end;
  if p>b then //если мин дальше
  begin
    x:=p;
    p:=b; //обменяем местами
    b:=x
  end;
  for i:=p+1 to b-1 do 
  begin 
    M[i]:=0;
    Edit4.Text := Edit4.Text + ' ' + IntToStr(M[i]);
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
 var
 i:integer ;
 begin
 randomize;
 N :=StrToInt(Edit1.Text);
 SetLength (M,N);
 Edit2.Text:=' ';
 for i:=0 to N-1 do
 begin
 M[i]:=Round(Sin(Random(40))*40);
 Edit2.Text:=Edit2.Text + ' ' + IntToStr (M[i]);
 end;
 end;

procedure TForm3.Button6Click(Sender: TObject);
  var i,p,b,x:integer;
begin
  p:=0;
  b:=0;
  for i:=1 to n-1 do 
  begin
    if M[i]<M[p] then p:=i;
    if M[i]>M[b] then b:=i;
  end;
  if p>b then //если мин дальше
  begin
    x:=p;
    p:=b; //обменяем местами
    b:=x
  end;
  for i:=p+1 to b-1 do M[i]:=0;
  for i:=0 to n-1 do  Edit4.Text := Edit4.Text + ' ' + IntToStr(M[i]);
end;