Работа с массивом. запись чтение

[TAMBIK]

var
     ItemBase:array[1..100] of integer;// создали массив
     objectID:integer;
     i: integer;

procedure Init; //Вызывается при включении скрипта
begin
end;
// при приходе пакета
begin
     if FromServer and (pck[1]=#$21)  and (ReadD(12)= itemID) then begin
          // при условии
          if  условие then
               // записать  objectID в массив
               objectID:=ReadD(8);
               for i:=1 to 100 do begin
                    if (ItemBase[i] == 0) then begin
                                            // как  ЗАПИСАТЬ ?
                         ItemBase[i]:= objectID;  // да просто :)
                         Break;  // прерываем дальнейший перебор массива.
                    end;
               end;
         end;
     end;

как мне на примере этого скрипта
добавить функцию чтения из массива objectID
т.е находим ячейку с записью № 1 objectID
провожу действия какие мне надо с objectID
при выполнение определенного условия :
искать запись № 2 также провожу действия и т.д