Массивы. Delphi

[Tony Hudson]

Привет. Не подскажите как удалить максим. элемент из массива?

var
  Form1: TForm1;
    a:array of integer;
    imax,imin,i,t,max,min,n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(edit1.Text);
  Setlength(a,n);
 Randomize;
  for i:=0 to n-1 do
  begin
  a[i]:=RandomRange(0,60);
  stringGrid1.Cells[i,0] :=InttoStr(a[i]);
  end;
  imax:=1;
  imin:=1;
 max:=a[1];
 min:=a[1];
 for i:=1 to n-1 do begin
 if a[i]>max then begin max:=a[i]; imax:=i;
  end;
   if a[i]<min then begin min:=a[i];   imin:=i;
 end;
 end;

Игнорируя оформление кода вы проявляете неуважение к форумчанам. И это у вас как правило.
Модератор