Дан массив А1...А20. Замените в нём..., Доработать код Опции

[Djeyms]

Помогите пожалуйста с заданием, дописать код программы.
Дан массив А1...А20. Замените в нём элементы, стоящие между Amax и Amin, на 0.
Спасибо.

  Uses
    Crt;
var
 i,j,S:integer;
 min,max:real;
  A:array [1..20] of word;
 BEGIN
  CLRSCR;
  
for i:=1 to 20 do
begin
write('A[',i,']=');readln(A[i]);
if A[i]>max then max:=A[i];
end;
min:=max;
for i:=1 to 20 do
begin
if A[i]<min then min:=A[i];
if A[i]=max then else A[i]:=0;
if A[i]=min then else A[i]:=0; 
Write(' ',A[i],' ');
end;
Writeln;
Writeln('min = ',min);
Writeln('max = ',max);
Writeln;
Readln;
END.

Amax и Amin он определяет правильно
Но этот код заменяет всё на нули

if A[i]=max then else A[i]:=0;
if A[i]=min then else A[i]:=0;

А как дописать что бы он заменял по заданию, знаний не хватает((