Введите массив из 5 элементов с клавиатуры и найдите количество элементов которые оканчиваются на 8 и делятся на

Насколько я понял
k:=0;
for i:=1 to 5 do
begin
readln(a[i]);
if (a[i] mod 10 = 8) and (a[i] mod 3)=0 then
inc(k);
end;
writeln(k);