Обнулить все элементы между минимальным и максимальным элементами массива

const Sz = 100; // Размер массива
 
var 
  a: array [1..Sz] of integer;
  N: integer; // Количество элементов в массиве
  i,posMin,posMax: integer;
 
begin
  N := 20;
  for i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for i:=1 to N do
    write(a[i],' ');
   posMin:=1;
   posMax:=1;
  for i:=2 to N do
  begin
    if(a[i]>a[posMax]) then
      posMax:=i;
    if(a[i]<a[posMin]) then
      posMin:=i;  
  end;
  writeln();
  if posMin >=posMax then
    writeln('Невозможно обнулить ')
  else
    begin
          for i:=posMin + 1 to posMax do
            a[i]:=0;
          writeln('Новый массив: ');
          for i:=1 to N do
            write(a[i],' ');
 
    end;
  
end.

program xd;
uses crt;
const n=100;
var   a:array [1..n] of integer;
       i,max,min,max_i,min_i,m:integer;
begin
write('êîëè÷åñòâî ýëåìåíòîâ ìàññèâà: ');read (m);
randomize;
for i:=1 to m do
 begin
   a[i]:=random(10);
   write(a[i],' ');
 end;
writeln;
min:=a[1];
max:=a[1];
min_i:=1;
max_i:=1;
for i:=2 to m do
  if max<=a[i] then begin
                 max:=a[i];
                 max_i:=i;
                 end
  else
  if min>a[i] then begin
                 min:=a[i];
                 min_i:=i;
                 end;
writeln('max= ',max);
writeln('min= ',min);
if min_i < max_i then
  for i:=min_i+1 to max_i-1 do a[i]:=0
else
  for i:=max_i+1 to min_i-1 do a[i]:=0;
for i:=1 to m do write (a[i],' ');
end.