Упорядочить массив по убыванию и разделить сумму всех элементов на минимальный элемент массива

procedure TForm1.Button1Click(Sender: TObject);
var b,c,d,m,n,ad:double;
a:integer;
mas:array of double;
  I: Integer;
  j: Integer;
 
begin
setlength(mas,10);
mas[1]:=m;
n:=1;
 
 
for a := 0 to 9 do
begin
b:=strtoFloat(inputbox('','вводите вещественные числа числа',''));
mas[a]:=b;
c:=mas[0]+mas[a+1];
end;
 
 for I := 0 to 9-1 do
    for j := 0 to 9 do
    begin
      if mas[j]<mas[a] then
      begin
        ad:=mas[i];
        mas[i]:=mas[j];
        mas[j]:=ad;
      end;
    end;
 
 
      for i := 0 to 9 do
      begin
    memo1.Lines.Add(FloatToStr(mas[i]));
      if mas[i]<m then
      begin
        m:=mas[a];
        n:=a;
       end;
 
      end;
 
  d:=c/n;
  memo1.Lines.Add('   ');
        memo1.Lines.Add('результат');
         memo1.Lines.Add(FormatFloat('0.00',d));
   end;
 
end.