Написать программу пользователь вводит 5 целых чисел,программа находит сумму всех отрицательных и произведение всех положительных чисел

Uses CRT;
var i,s,p,a,n:integer;
begin
  p:=1; 
  write('введите кол-во чисел ');
  readln(n);
  for i:=1 to n do begin
                            write('введите ',i,'число: ');
                            readln(a);
                            if a<0 then s:=s+a
                            else p:=p*a
                          end;
 writeln('сумма отрицательных чисел равна: ',s);
 writeln('произведение всех положительных чисел равно: ',p)
end.
как-то так)