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