Помогите решить задачу по pascal

Если N-нечетное, то вывести произведение 1*3*...*N; если N-четное, то вывести произведение 2*4*...*N. Помогите, считает только нечетные числа.
var
i,s,n:longint;
begin
write('N=');
readln(n);
s:=1;
for i:=1 to n do
begin
if (i mod 2)=0 then
s:=s*i
else
begin

if n mod 2<>0 then
s:=s*i;
i:=i+1;

end;
end;
writeln('Произведение чисел= ',s);
end.