В заданном массиве чисел заменить все элементы между минимальным и максимальным

const
  n = 30;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  x, b, max, min: integer;
 
procedure random_mas(var a: mas);
var
  i: integer;
begin
  for i := 1 to n do
    a[i] := random(10) - 5;
end;
 
procedure print_mas(a: mas);
var
  i: integer;
begin
  for i := 1 to n do
  begin
    write(a[i]:3, ' ');
  end; writeln;
end;
 
procedure minmax(var a: mas);
var
  i: integer;
begin
  max := -maxint;
  min := maxint;
  for i := 1 to n do 
  begin
    if a[i] < min then 
    begin
      min := a[i]; 
      x := i;
    end;
    if a[i] > max then 
    begin
      max := a[i];
      b := i; 
    end;
  end;
  for i := x + 1 to b - 1 do 
  begin
    if (a[i] <> max) or (a[i] <> min) then
      a[i] := 0; end;
  for i := x - 1 downto b + 1 do 
  begin
    if (a[i] <> max) or (a[i] <> min) then
      a[i] := 0;
  end; end;
 
begin
  writeln('Исходный массив');
  random_mas(a);
  print_mas(a);
  minmax(a);
  writeln('Макс эл=  ', max, ' его номер ячейки: ', b);
  writeln('Мин. эл= ', min, ' его номер ячейки: ', x);
  writeln('результирующий массив ');
  print_mas(a);
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,imn,imx,x:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Номер минимального=',imn,' минимальный=',a[imn]);
writeln('Номер максимального=',imx,' максимальный=',a[imx]);
if abs(imn-imx)=1 then write('Между минимальным и максимальным нет элементов')
else
 begin
  if imx<imn then
   begin
    x:=imn;
    imn:=imx;
    imx:=x;
   end;
  writeln('Замена элементов между минимальным и максимальным элементами');
  for i:=imn+1 to imx-1 do
  a[i]:=0;
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.