Водномерном массиве x(15) найти: произведение элементов, удовлетворяющих условию 0 < tgxi < 1, а также сумму положительных

Var
X:array[1..15]of integer;
P,S,i:integer;
Begin
P:=1;
S:=0;
WriteLn('Введи элементы массива');
For i:= 1 to 15 do
 Begin
 Read(X[i]);
 if (Tan(i)>0)and(Tan(i)<1) then P:=P*X[i];
 if X[i]>0 then S:=S+X[i]
 End;
WriteLn('Произведение равно ',P);
WriteLn('Сумма положительных элементов равна ',S)
End.