В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму положительных элементов массива, расположенных до максимального элемента — Pascal(Паскаль)

const
n=10;
var
i,max,summa:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');
 max:=1;
 for i:=2 to n do
  begin
    if a[i]>a[max] then
    max:=i;
  end;
 Summa:=0;
 for i:=1 to max-1 do
  begin
   if a[i]>0 then
   Summa:=Summa+a[i];
  end;
writeln('-------');
writeln(summa);
end.