[Tronix]

Всем привет.
Сталкнулся с проблеммой: как содать статичный массив?
В паскале это было приблизительно так:

Const
    Mas : Array [1..4] of Integer = (1,2,3,4);

В Мидлетпаскале это не возможно? Как тогда быть с кодом:

             If i = 102 then i := 2 else
	If i = 116 then i := 16 else
	If i = 125 then i := 25 else
	If i = 150 then i := 50 else
	If i = 152 then i := 52 else
	If i = 154 then i := 54 else
	If i = 159 then i := 59 else
	If i = 161 then i := 61 else
	If i = 163 then i := 63 else
	If i = 164 then i := 64 else
	If i = 173 then i := 73 else
	If i = 177 then i := 77 else
	If i = 197 then i := 77 else
	If i = 199 then i := 77 else
	If i = 178 then i := 78;

Он меня просто убивает Неужели делать рессурс и из него читать в массивы? Помогите соптимизить. Я новичек, делаю первую прогу на мидлет паскале. С обычным паскалем опыт есть. Спасибо.