Найти сумму положительных и произведение отрицательных элементов массива

uses CRT;
 
const N=10;
 
var A            : array[1..N] of integer;
    poloj, otric : integer;
    i            : integer;
 
begin
 
  ClrScr; {чистим экран}
 
  {вводим элементы в массив с клавиатуры}
  for i:=1 to n do
  begin
    Write('Введите ',i,'-й элемент массива : ');
    ReadLn(A[i]);
  end;
  
  ClrScr; {чистим экран еще раз, чтобы избавиться от пользовательского ввода}
  
  {и выводим весь массив}
  for i:=1 to n do
    Write(A[i]:4, ' ');
    
  WriteLn;
  WriteLn;
  WriteLn;    
    
  { ОСНОВНОЙ АЛГОРИТМ }
  otric := 0;
  poloj := 0;
  for i:=1 to N do
    if A[i]<0 then 
    begin
      {отрицательное}
      if otric=0 then
         otric := A[i]
      else
         otric := otric * A[i];
    end
    else
        if A[i]>0 then
    begin
      {положительное}
      poloj := poloj + A[i];
        end;
 
 
  WriteLn('Сумма положительных элементов данного массива : ', poloj);
  WriteLn('Произведение отрицательных элементов  массива : ', otric);
 
  ReadLn;
end.