С клавиатуры вводится 20 целых чисел.Найти сумму и произведение нечётных и отрицательных

спасиибо

var i,n,sum,summ: Integer;beginsumm:=1;for i:=1 to 20 dobeginwriteln('Введите ',i,' число');readln(n);if (n mod 2<>0) and (n<0) then beginInc(sum,n);summ:=summ*n;end;end;writeln('Сумма: ',sum);writeln('Произведение: ',summ);end.