Roma, тогда надо объявлять переменную (массив) чуть повыше, в private
.
.
private
AR:array[1..999] of integer;
.
.
public
тогда она будет доступна из любой процедуры.
------------ Дoбавленo в 10.38:
только сейчас заметил: индексы массива начинается с "0" AR:array[0..999] of integer;