Отсортировать одномерный массив по возрастанию количества четных цифр числа.

я не знаю как оно работает, но оно работает

(возможно, можно оптимизировать, что возможно где-то я это не учёл)

в предпоследней строке с конца ( write (ZZ[i]:5) ) цифру 5 можно изменить на какой нужно (надеюсь вы понимаете моё кривое мышление), либо можно проще  write (zz[i]) , но тогда они выведутся не в строку, а столбцом