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

Uses crt;

var a, t, i, k, w:integer;

begin

t:=1;

for i:=1 to 10 do

begin

read (a) ;

if a > 0 then t:=t*a;

if a < 0 then begin k:=k+a; w:=w+1; end;

end;

writeln ('Произведение положительных = ', t) ;

writeln ('Сумма отридцательных = ', k,'а их количество = ', w) ;

end.