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