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

var a: array [1..10] of integer;

      s,s1,i: integer;

begin

  s:=0;

  s1:=1;

  for i:=1 to 10 do 

    begin

      readln(a[i]);

      if a[i]>0 then s:=s+a[i];

      if a[i]<0 then s1:=s1*a[i];

    end;

  writeln('Сумма: ',s,', произведение: ',s1);

end.