Подскажите как написать скрипт

[semiromid]

Подскажи что тут не правильно ?

 begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00');            //Создаем пакет "принять пати"
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

на против else выдает ошибку (крастная строчка) при компиляции