Одномерный массив. Вычислить сумму, произведение

const
  max=11;
var
  a:array[1..max] of integer;
  sump,sumo,i:integer;
begin
  sump:=0;
  sumo:=0;
  writeln('Исходный массив:');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    if a[i]>0 then
      inc(sump,a[i]);
    if a[i]<0 then
      inc(sumo,a[i]);
    write(a[i],' ')
  end;
  writeln;
  writeln('Сумма положительных элементов массива: ',sump);
  writeln('Сумма отрицательных элементов массива: ',sumo)
end.

var a:array[1..100] of integer;
    n,i,sum,mult:integer;
    max:byte;
begin
write('n = ');
readln(n);
for i:=1 to n do
  read(a[i]); {ввод через пробел}
mult:=1;
max:=-MaxInt;
for i:=1 to n do
  begin
    if a[i]<0 then mult:=mult*a[i];
    if a[i]>max then max:=i;
  end;
sum:=0;
for i:=1 to max-1 do {(max-1) если максимальный элемент не включаем, иначе до max}
  if a[i]>0 then sum:=sum+a[i];
writeln('произведение отрицательных элементов: ',mult);
writeln('сумма положительных до макс: ', sum);
readln;
end.