Можно цикл запустить наооборот:
for i:=n downto 1 do
Writeln(x[i]);
Информация!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
111(6)=43(10)
101(8)=65(10)
110110(2)=54(10)
111->110110->101
5 Кбайтов = 5*2^13 битов
2560=5*512 =5*2^9 символов
5*2^13 : (5*2^11) = 2^2 =4 бита для одного символа
2^4 =16 символов в данном алфавите
<span>Zotac Geforce GTX 960 2GB GDDR5 Норм видюха :3</span>