mexx, рады были помочь! не пропадай! [Ответ]

ОК!
[Ответ]

Так варианты без массивов представлены [Ответ]

Сообщение от :
My:Array [1..256]of ShortInt

А это разве не массив? [Ответ]

Да массив, но в посте номер2 был предожен вариант без дополнительных массивов, о которых, как я погнимаю, шла речь [Ответ]