Обнулите все элементы массива между max и min. У меня есть код, но тут где то ошибка

procedure TForm1.Button1Click(Sender: TObject);
const
n=5;
var i,max,min:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(6);
memo1.Text:=memo1.text + Inttostr(a[i]);
end;
max:=1;
for i:=1 to n do
    if a[i]>a[max] then
    max:=i;
min:=1;
for i:=1 to n do
    if a[i]<a[min] then
    min:=i
if min>max then
       for i:=max+1 to min-1 do
       a[i]:=0;
 
if max>min then
       for i:=min+1 to max-1 do
       a[i]:=0;
for i:=1 to n do
memo1.lines.add('konechnij massiv');
memo1.text:=memo1.text + inttostr(a[i]);

procedure TForm1.Button1Click(Sender: TObject);
const
  n=5;
var i,max,min:integer;
  a:array[1..n] of integer;
begin
  randomize;
  max:=1;
  min:=1;
  for i:=1 to n do
  begin
    a[i]:=random(6);
    if a[i]>a[max] then
      max:=i;
    if a[i]<a[min] then
      min:=i;
    memo1.Text:=memo1.text + Inttostr(a[i]);
  end;
  memo1.lines.add('');
  if min>max then
    for i:=max+1 to min-1 do
      a[i]:=0;
 
  if max>min then
    for i:=min+1 to max-1 do
      a[i]:=0;
  memo1.lines.add('konechnij massiv');
  for i:=1 to n do
    memo1.text:=memo1.text + inttostr(a[i]);
  memo1.lines.add('');
end;