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

Program Masiv;
Uses
    crt;
Const
    N=15;
Type
    TVectoк= array [1..N] of real;
Var
    A, B: TVector;
    C: real;
    count, i : byte;
    flag: boolean;
Begin
  clrscr;
  
  count:=0;
  C:=1;
  {Ввод масива A и подсчет кол. отрицательных элементов + произведение положительных}
  For i:=1 to N do
       begin
           read(A[i]);
           if A[i]> 0 then
                C:=C*A[i]
           else 
              if A[i]<0 then
                count:=count+1; 
           write('  ');
       end;
   
   writeln;
   {Заполнение масива В}  
   flag:=true;
   For i:=1 to N do
       if flag= true then
          begin   
              B[i]:=count;
              flag:= not flag;
              write(B[i]:4);
          end
        else
          begin
              B[i]:=C;
              flag:= not flag;
              write(B[i]:4);
          end;
readln;
end.