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

const   n = 10; //Количество чисел, которое нужно ввести var   a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}   number, i: integer; //number - количество чисел begin   number:= 0; //Обнуляем счетчик   for i:= 1 to n do //Вводим n двузначных чисел   begin     writeln('Введите двузначное число');     readln(a[i]);   end;   write('Числа, которые делятся на 4,но не делятся на 6: ');   for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}     if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}   begin     write(a[i], ' ');     number:= number + 1;   end;   writeln;   writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number); end.