Program Ded
function mainmenu(n:integer):integer;
var cmsms, setings,help, exit,langs,balans,help,about,updates ,stat,popolnenie,balans: integer;
play,back, clicked : command;
Begin
showMenu('Главное меню', CH_IMPLICIT);//главное меню
cmsms:= menuAppendStringimage('Отправить смс',imA[1]);
stat:=menuAppendStringimage('Статус сообщения',imA[2]);
balans:=menuAppendStringimage('Баланс кода',imA[3]);
setings := menuAppendStringimage('Прикольные СМСки',imA[4]);
popolnenie:=menuAppendStringimage('Приобрести код',imA[5]);
help := menuAppendStringimage('Справка',imA[6]);
about:= menuAppendStringimage('О программе',imA[7]);
updates:=menuAppendStringimage('Обновление',imA[8]);
exit := menuAppendStringimage('Выход',imA[9]);
ui.list_set_selected(n);
play := createCommand('Выбрать', CM_OK, 1);
addCommand(play);
clicked:=EmptyCommand;
repeat
delay(200);
clicked := getClickedCommand;
until clicked <> EmptyCommand;
mainmenu:=menuGetSelectedIndex;
RemoveCommand(play);
if menuGetSelectedIndex = exit then begin saveStore; halt; end;
if menuGetSelectedIndex = updates then update;
if menuGetSelectedIndex = cmsms then sendSMS;
if menuGetSelectedIndex = setings then PROCcoolsms;
if menuGetSelectedIndex = balans then balansForm;
if menuGetSelectedIndex = stat then checksmsid;// проверка статуса
if menuGetSelectedIndex = popolnenie then checkcantpay;
if menuGetSelectedIndex = help then showhelp;
if menuGetSelectedIndex = about then showabout;
end;
Пишет ошибку: 'unexpected token '<EOF>''