[TAMBIK]

в начале скрипта после где
//Список переменных

var
добавь:
ItemEnch,good,broken:integer;

 #$87: begin
        ItemEnch:=readd(2);<<<< добавить
        case readd(2) of
            0: begin

правда я непонял что за значение:

good,broken

автор подскажет может