Помогите пожалуйста! с клавиатуры вводятся 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.