Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочно надо.

var
s,p,n,i:integer;
mas: array[1..7] of integer;
begin
s:=0;
p:=1;
n:=0;
for i:=1 to 7 do
read(mas[i]);

for i:=1 to 7 do begin
if mas[i]>=0 then begin
s:=s+mas[i];
p:=p*mas[i];
end
else
n:=n+1;
end;

write('summa=', s, ', proizvedenie=', p, ', otrezatelnich=', n);
end.