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

var
   a: array [1..10] of integer;
   i,max,max_i,sum:integer;
 
begin
   
   
   a[1] := random(10);
   write(a[1]:5);
   
   max := a[1];
   max_i := 1;
   for i := 2 to 10 do
      begin
         a[i] := random(20)-10;
         write(a[i]:5);
         if a[i] > max then 
            begin
               max := a[i];
               max_i := i;
            end;
      end;
      
   writeln;
   
   
   writeln('Максимальный элемент: ' ,max, ' Его индекс: ', max_i);
   sum := 0;
   
   for i := 1 to max_i-1 do
      begin
         if a[i] > 0 then 
            begin
               sum += a[i];
            end; 
      end;
   
   writeln;
   writeln('Сумма положительных элементов массива, расположенных до максимального элемента: ',sum);
   
 
end.

const
  m = 10;
 
var
  a: array[1..m] of integer;
  i, i_max, sum: integer;
 
begin
  i_max := 1;
  for i := 1 to m do
    begin
      a[i] := -10 + random(21);
      write(a[i]:5);
      if a[i] > a[i_max] then i_max := i
    end;
  writeln;
  writeln('Максимальный элемент: ', a[i_max], ', его индекс: ', i_max);
  for i := 1 to i_max - 1 do if a[i] > 0 then sum := sum + a[i];
  writeln('Сумма положительных элементов массива до максимального элемента: ',sum)
end.

const
  m = 7;
  a: array[1..m] of integer = (-2, -4, 6, -1, 23, -5, -9);
 
var
  i, i_max, sum: integer;