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

[TAMBIK]

  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

в массиве есть
1. несколько одинаковых предметов
2. несколько разных предметов
с разными уровнями заточки.
Как найти минимально заточеный предмет для 1 случая и для 2 ?