(delphi) работа с динамическим массивом

[anubiss]

Дано решение по задаче в которой удаляются чётные значения в массиве.
Помогите переделать задачу, что-бы в массиве удалялись только максимальные и минимальные значения. Заранее спасибо)

procedure TForm1.Button2Click(Sender: TObject);
 var i,j,m:integer;
     A:array of integer;
begin
 try
   Label3.Caption:='...';
   SetLength(A,N);
   for i := 0 to N-1 do
     A[i]:=StrToInt(StringGrid1.Cells[1,i]);
  m:=0;
  i:=0; 
  repeat
     if A[i] mod 2 = 0 then begin
       m:=m+1;
       for j:=i to High(A)-1 do
          A[j]:=A[j+1];
          SetLength(A,N-m);
     end else i:=i+1;
  until i>High(A);
  StringGrid1.RowCount:=N-m;
     for i := 0 to N-m-1 do
     StringGrid1.Cells[1,i]:=IntToStr(A[i]);
     A:=nil;
  Label3.Caption:=IntToStr(m);
 except
   showmessage('Некорректные данные!');
 end;

end;