Вмассиве подсчитать: сумму чётных элементов. (элементов массива: 7. массив вводится с клавиатуры)

Var
  aa[1..7] : array of integer;
  i, s : integer;

begin
  for i := 1 to 7 do
    read(aa[i]);

  s := 0;
  for i := 1 to 7 do
    if aa[i] mod 2 = 0 then
      s := s + aa[i];

  writeln(s);
end.