даны 10 чисел, которые последовательно вводятся одно за другим. требуется вычислить сумму только четных чисел. Помогите пожалуйста. Написать программу в Паскале ​

const size = 10;

Var

  sum: integer;

  arr: array[1..size] of integer;

Begin

  for var i := 1 to size do

  begin

     Write('Введите ', i, ' число: ');

     Readln(arr[i]);

     if (arr[i] mod 2 = 0) then

        sum := sum + arr[i];

  end;

  Writeln();

  Writeln('Сумма четных чисел = ', sum);

End.