Даже не знаю как тебе помочь. Ты в программировании понимаешь? Зачем у тебя куча ненужных begin end;?
Почитай книги какие нибудь.
Вот формат скрипта для пакетхака:
Код:
//описываешь константы
const
...
//описываешь переменные
var
...
//описываешь вспомогательные функции (возвращает результат)
function Pause(Timewait: Integer):Boolean;
begin
...
result:=true;
end;
//описываешь вспомогательные процедуры (не возвращает результат)
procedere Pause2;
begin
...
end;
procedure Init; //Вызывается при включении скрипта
begin
//заполняешь если надо
...
end;
procedure Free; //Вызывается при выключении скрипта
begin
//заполняешь если надо
...
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//заполняешь если надо
...
end.