парочка вопросов)

[supernewbie]

begin
if fromserver and (connectname=name) and (pck[1]=#$08) then
begin
idnpc1:=ReadD(2);
for i:=1 to 1500 do
if npcinfo[i]=idnpc1 then
begin
npcinfo[i]:=0;
say('ид нпса который удален:=' + (vartostr(idnpc1)));
break;
end;
end;
end;

что не так тут?)

Добавлено через 24 минуты
как делать ReadD из масива? люди помогите))

Добавлено через 8 минут
так, нашел...

Добавлено через 9 минут
нет( не робит( как сделать ReadD из массива , народ?

Добавлено через 2 часа 0 минут
срочно хелп) 1ый пост обновил