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

[TAMBIK]

ДОБАВЬТЕ !!!!!!!!!!!!!!!!

const
  max=80;
 itemID=142;
 Maxlvl=10;
 var
 BaseItems:array[1..max,1..10] of integer;

 Amount:integer;
 enchantLevel:integer;
 sumitemID:integer;
 sumMaxlvl:integer;
 sumitemIDOID:integer;
 sumMaxlvlOID:integer;
//................... 
procedure ItemList;
var
  i, j, k: integer;
  ListSize: integer;
 begin
   j:=4; 
  ListSize:=ReadH(j); 
  for i:=1 to ListSize do
  if (i<=ListSize) then begin
      BaseItems[i,1]:=ReadH(j);  
      BaseItems[i,2]:=ReadD(j);  
      BaseItems[i,3]:=ReadD(j);  //ItemID
      BaseItems[i,4]:=ReadD(j);  
      BaseItems[i,5]:=ReadD(j);  //Amount: 
               j:=j+4;         
      BaseItems[i,6]:=ReadH(j);
      BaseItems[i,7]:=ReadH(j);
      BaseItems[i,8]:=ReadH(j);
      BaseItems[i,9]:=ReadD(j);
      BaseItems[i,10]:=ReadH(j);//EnchantLevel
        inc(j,30);// ФИНАЛ 
 end else for k:=1 to 10 do BaseItems[i,k]:=0; 
   sumitemIDOID:=GetsumitemID(itemID);// сколько предметов
end;

                     // СЧИТАЕМ ПРЕДМЕТЫ 
//................... 
procedure Resultenchant;
 begin
sumMaxlvlOID:=GetsumMaxlvl(itemID,Maxlvl);// сколько предметов с itemID и Maxlvl=10
end;
// сколько предметов с itemID
//-------------------
function GetsumitemID(itemID:integer) : integer;
var
  i : integer;
begin   
     for i:=1 to max do
 if (BaseItems[i,3]=itemID)  then begin
        Amount:=BaseItems[i,5];           
       sumitemID:=sumitemID+ BaseItems[i,5];
                          //<<<<<===  ЧТО ТО НАДО                    
   
end;
end;
// сколько предметов с itemID и Maxlvl=10
//---------------------
function  GetsumMaxlvl(itemID,Maxlvl:integer) : integer;
var
  i : integer;
begin   
     for i:=1 to max do
 if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then begin
          enchantLevel:=BaseItems[i,10];   
          sumMaxlvl:=sumMaxlvl+BaseItems[i,5];
                            //<<<<<===  ЧТО ТО НАДО  
end;
end;
//  при равенстве предметов с itemID и предметов сitemID и Maxlvl=10
//---------------------
                             //<<<<<===  ЧТО ТО НАДО 
 

//========================
далее не важно