Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)

program podschet;
var n,x,s,y,p,i:integer;A:array [1..n] of integer;
begin
x:=0; s:=0; y:=0; p:=0;
for i:=1 to N do
begin
write('Введите ', i, '-й элемент массива: ');
read(A[i]);
end;
for i:=1 to N do
begin
if A[i]<0 then
(y:=y+1) and (p:=p*A[i])
else
if A[i]>0 then
(x:=x+1) and (s:=A[i]+s);
end;
writeln('Сумма и число положительных элементов массива равна', x, s, 'Произведение и число отрицательных эл. массива равна', y, p);
End.

uses crt;
const nmax=20;
var n,x,s,y,p,i:integer;
    A:array [1..nmax] of integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
x:=0; s:=0; y:=0; p:=1;
for i:=1 to N do
 begin
  write('a[',i,']=');
  read(A[i]);
  end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to N do
 begin
  if A[i]<0 then
   begin
    y:=y+1;
    p:=p*A[i]
   end
  else if A[i]>0 then
   begin
    x:=x+1;
    s:=A[i]+s
   end
 end;
writeln('Сумма положительных=',s,' их количество=',x);
writeln('Произведение  отрицательных=',p,' их количество=',y)
End.