Дан массив А (8). Найти сумму нечетных положительных элементов.

Благодарю заранее

Programm p1;

var i, s:integer;

arr1:array [1 ... 8] of integer;

begin

for i:=1 to 8 do

begin

writeln ('Введите элемент массива ', i) ;

readln (arr1[i]) ;

end;

s:=0;

for i:=1 to 8 do

begin

if (arr1[i] mod 2 0) and (arr1[i]>0) then s:=s+arr1[i];

end;

writeln ('Сумма нечетных положительных элементов равно: ', s) ;

end.