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

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

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

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