Написать программу на языке паскаль, где пользователь вводит с клавиатуры 99 элементов массива, а программа рассчитывает сумму значений элементом при условии четности индекса элемента и значения этого элемента

Var
  i, sum: integer;
  ar: array[1..99]of integer;
 begin
  sum := 0;
  for i := 1 to 99 do
  begin
    read(ar[i]);
    if(i mod 2 = 0) and (ar[i] mod 2 = 0) then sum := sum + ar[i];
  end;
  write(sum);
end.