Дан массив а(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.