Program1.pas(34) : Встречено 'begin', а ожидался идентификатор

uses GraphABC, events;
var a,i: integer; B:array[1..6] of string; // B - это массив для пунктов меню
//-------------------------------------------------
procedure menu(a: integer); // процедура для вывода меню
var i:integer;
begin
for i:=1 to 6 do
begin
setfontsize(10);
if a=i then setfontcolor(clred) else setfontcolor(clgreen); //активный пункт красного цвета
textout(200,100+i*30,b[i]);
end;
end;
//-------------------------------------------------------------
procedure KeyDown(Key: integer); // Процедура Обработчик клавиш (вверх, вниз, Энтер)
begin
case Key of
VK_Up: begin if a=1 then a:=5 else a:=a-1; clearwindow; menu(a); end;
VK_Down: begin if a=6 then a:=1 else a:=a+1; clearwindow; menu(a); end;
VK_Return:
case a of
1: textout(250,300,'Один'); // то, что выполняет пункт меню
2: textout(250,300,'Два');
3: textout(250,300,'Три');
4: textout(250,300,'Четыре');
5: textout(250,300,'Пять');
6: textout(250,300,'шесть');
end;
end;
end;
 
var
//--------------------------------
begin // Основная часть программы
a:=1;
for i:=1 to 6 do // (Заполнение меню)
b[i]:= '1';
b[1]:='О программе';
b[2]:='По часовой';
b[3]:='Против часовой';
b[4]:='Быстро';
b[5]:='Медленно';
b[6]:='Выход';
menu(a); // вызов процедуры menu с параметром a
OnKeyDown := KeyDown; // Привязка обработчиков к событиям
end.