Какую строчку надо убрать чтобы не выводились числа по 2 раза??
Над курсором которая. for i ....... write(a[i] .....