Дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. напишите в паскале

Program a;
var i,s,r:integer;
begin
s:=1;
read(i);
while i<>0 do 
begin
if (i<0)and(i<>0) then r:=r+1 else s:=s*i;
read(i);
end;
writeln(s,r);
end.