Найти произведение положительных,сумму и количество отрицательных из 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.