Вычислить среднее арифметическое значение тех элементов одномерного массива, которые расположены за первым по порядку минимальным элементом

procedure TForm1.Button1Click(Sender: TObject);
Const  n=10;
 var
 a:array [1..n] of integer;
i,min,sum:integer;
begin
   for i:=1 to n do
      begin
         a[i]:=random(31)-20;
         form1.Memo1.Lines.Add(inttostr(a[i]));
         end;
  For i:=1 to n do
  min:=a[1];
  For i:=1 to n do
    If a[i]<min
     Then
      min:=a[i];
  label1.caption:=floattostr(min);
end;
 
end.

min_index := n;
for i := n - 1 downto 1 do
   if a[i] < a[min_index] then min_index := i; // так ты найдешь индекс первого минимального элемента...
 
// Если пойдешь от 2 до n - найдешь индекс последнего, а тебе не это нужно.
 
// Ну, а теперь - находим сумму элементов после min_index:
sum := 0;
for i := min_index + 1 to n do
   sum := sum + a[i];