[roamer]

Если использование именно массива:
TArray100=array[1..100]of integer;
это не жесткое условие задачи.
То, как вариант, можно использовать TStrings...

--------------- Sorry, не заметил, что вариант уже предлагался.
Надо удалить это сообщение.