Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от a до b на языке паскаль программку

Var a,b,s,p,x: integer;
begin
p:=1;
s:=0;
read (a,b);
for x:= a to b do begin
if x>0 then  s:=s+x;
if x<0 then p:=p*x;
end;
writeln(s,p);
end.