Элементы массива и Case!

[Alt]

type
otsek = array [1..13] of integer;
...
procedure Tthform.BallVector(const A: otsek);
begin
case objcentr(ball) of
  0..A[1]: balc_config(-6,1);
  A[2]..A[3]:balc_config(-5,2);
end;

Ошибка: Constant Expression Expected
Как это исправить?

[CodeExpert]

0..A[1]!!!!!!!!!

[Alt]

Сообщение от CodeExpert

0..A[1]!!!!!!!!!

Ну а как исправить то?
Мне нужно проверть диапазон от нуля до первого элемента массива...

[Namolem]

if objcentr(ball)>=0 AND objcentr(ball)<=a[i]

[Alt]

Сообщение от Namolem

if objcentr(ball)>=0 AND objcentr(ball)<=a[i]

Да методом через IF это легко сделать, проблема в том что там будет вариантов как раз на все промежутки между элементами массива, это что, столько IF писать? че то не очень перспективно

[Namolem]

if objcentr(ball)>=0 AND objcentr(ball)<=a[1] then ...
else if objcentr(ball)<=a[2] ...
else if objcentr(ball)<=a[3] ...
...
else ...;

не знаю как по-другому