Удалить из массива все его максимумы и минимумы

const n_max=10;
 
var a:array [1..n_max] of integer;
 max, min, i,j,n:integer;
 
BEGIN
max:=-1000; min:=1000;
 
writeln('n='); read(n);
for i:=1 to n do
 begin
 write('A[',i,']=');
 readLn(A[i]);
 end;
 
 for i:=1 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
 
j:=0; i:=0;
repeat
 i:=i+1;
 while (a[i]=min) do
 begin j:=i;
 
 repeat
 a[j]:=a[j+1]; j:=j+1;
 until j>=n;
 n:=n-1;
 
 end;
until i>=n;
for i:=n+1 to n do a[i]:=0;
 
j:=0; i:=0;
repeat
 i:=i+1;
 while (a[i]=max) do
 begin j:=i;
 
 repeat
 a[j]:=a[j+1]; j:=j+1;
 until j>=n;
 n:=n-1;
 
 end;
until i>=n;
for i:=n+1 to n do a[i]:=0;
 
writeln('max=',max,'min=', min);
writeln(' Полученный массив: ');
for i:=1 to n do
writeln('_A[',i,']=', a[i]);
END.

uses crt;
const n_max=10;
var a:array [1..n_max] of integer;
    max, min, i,j,n:integer;
BEGIN
repeat
write('Размер массива до ',n_max,' n=');
read(n);
until n in [1..n_max];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('A[',i,']=');
  readLn(A[i]);
 end;
clrscr;
writeln('Исходный массив:');
max:=a[1];
min:=a[1];
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
 end;
writeln;
writeln('max=',max,'  min=', min);
i:=1;
while i<=n do
if (a[i]=max)or(a[i]=min) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
writeln(' Полученный массив: ');
for i:=1 to n do
write(a[i],' ');
END.