Как вычислить произведение нечетных чисел

[StoneGod]

Паскаль почему то не правильно считает, иногда откуда то минус появляется. Посмотрите все ли я правильно написал. Пожалуйста.
program fdg;
var a:array[1..10] of integer;
p,i:integer;
begin
writen('введите массив');
for i:=1 to 10 do
readln(a[i]);
p:=1;
for i:=1 to 10 do
if a[i]mod(2) > 0 then
p:=p*a[i];
writeln('p=',p);
end.

[Alex11223]

А зачем скобки в mod(2)?
Числа какие? Может за предел integer выходит?

[StoneGod]

спасибо. оказывается за предел заходит