Задай одномерный массив х [1..15]. определить сумму четных положительных элементов массива, заполненного случайными числами из интервала от (-10)5] паскаль

Var
  X: array [1..15] of integer;
  i, sum: byte;
begin
sum := 0;
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 15 do
begin
  X[i] := random(15)-9;
  if ((X[i] > 0) and (X[i] mod 2 = 0)) then
    sum := sum + X[i];
  write(X[i],' ');
end;
writeln;
writeln('Сумма положительных четных = ', sum);
readln;
end.