А еще лучше 2 массива (имя и id), тогда строчки
Код:
............................
............................
if (ReadD(6)=(Sheshark)) then
begin
SendMsg2('Water Dragon Seer Sheshark РЕСП (72)');
end;
............................
............................
превратятся в цикл.