Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся

var
sum, i, x : integer; // объявляем переменные целочисленного типа.
arr : array [1..5] of integer; // объявляем массив.
Begin
writeln('Введите 5 целых чисел для заполнения массива:'); // вывод строки на экран.
for i:= 1 to 5 do // начало цикла.
begin
readln(arr[i]); // заполняем элемент массива.
if ((arr[i] mod 10 = 6) and (arr[i] mod 4 = 0)) then // если элемент оканчивается на 6 и // делится на 4.
begin
sum := sum + arr[i]; // считаем сумму элементов.
x := x + 1; // считаем количество элементов.
end;
end;
if (x = 0) then

writeln('Элементов кратных 4 и оканчивающихся на 6 в массиве нет.')
else

writeln('Сумма элементов кратных 4 и оканчивающихся на 6 равна: ', sum);
End.