Ошибка: встречено procedure, а ожидался оператор

uses GraphABC,System;
var
 Q: array[1..3] of String = ('Запуск', 'О программе', 'Выход');
  windowGame: string;
  //mainMenu - главное меню
  //play - запущено
  //about - о программе
  xMouse, yMouse, point: integer; //координаты курсора мыши, point - номер пункта меню
  ch,x1, y1, x2, y2, x3, y3: integer;//координаты вершин треугольника
  vibor,p,i,t: integer; //соовтетственно текущее времмя, предыдущее время, количество отмеченных точек 
 
 
 
 
procedure menu(i,p: integer); // процедура для вывода меню
begin
for i:=1 to 4 do
begin
setfontsize(10);
if p=i then setfontcolor(clred) else setfontcolor(clgreen); //активный пункт красного цвета
textout(200,100+i*30,Q[i]);
end;
end;
 
 
procedure titul(j,k:integer);
begin
clearwindow;
Setfontcolor((clblack));
 begin
    clearWindow();
     DrawTextCentered(0, 0, 800, 25, 'Министерство образования и науки Российской Федерации');
     DrawTextCentered(0, 25, 800, 50, 'Федеральное государственное автономное образовательное учреждение высшего образования');
      DrawTextCentered(0, 50, 800, 75, '"Уральский федеральный университет имени первого Президента России Б.Н. Ельцина"');
      DrawTextCentered(0, 50, 800, 75, '"Уральский федеральный университет имени первого Президента России Б.Н. Ельцина"');
      DrawTextCentered(0, 75, 800, 90, 'Институт строительства и архитектуры');
      DrawTextCentered(0, 90, 800, 105, 'Кафедра Гидравлики');
      DrawTextCentered(0, 135, 800, 150, 'Дисциплина - информатика');
      DrawTextCentered(0, 200, 800, 215, 'ПОЯСНИТЕЛЬНАЯ ЗАПИСКА');
      DrawTextCentered(0, 215, 800, 230, 'к самостоятельной работе');
      DrawTextCentered(0, 230, 800, 245, '"Разработка программного продукта в среде PascalABC"');
      DrawTextCentered(0, 245, 800, 260, '(Вариант № 4)');
    
    TextOut(400, 395, 'Студент Дубинская Ирина');
    TextOut(400, 410, 'Группа СТ-180006');
    TextOut(400, 425, 'Дата проверки_______');
    TextOut(400, 440, 'Преподователь: Служеникина Н.В.');
    TextOut(400, 455, 'Оценка_____');
    TextOut(450, 470, 'Титульный лист___');
    TextOut(450, 485, 'Техническое задание___');
    TextOut(450, 500, 'Математическая (логическая) модель____');
    TextOut(450, 515, 'Спецификация___');
    TextOut(450, 530, 'Листинг программы___');
    TextOut(450, 545, 'Защита СР___');
      DrawTextCentered(0, 550, 350, 600, 'Чтобы выйти в главное меню нажмите "Esc"');
  end;
  end;
  
  
  procedure aboutprogram;
 
begin
 
clearwindow;
setfontcolor(clblack);
textout (50,175,'Управление программой осуществляется при ');
textout (50,250,'помощи двух клавиш: ENTER,ESCAPE.');
textout (90,275,' ESCAPE - выход в меню');
 
end;
  
//-------------------------------------------------------------
procedure up;
 
begin if f=1 then f:=4 else f:=f-1; clearwindow; menu(i,f); end;
 
procedure down ;
 
begin if f=4 then f:=1 else f:=f+1; clearwindow; menu(i,f); end;
 
procedure keypress (ch:integer);
 
begin
 
if ch=VK_Space then d:=1;
 
if ch=VK_Escape then vibor:=6;
 
if ch=vk_down then down;
 
end;
 
procedure KeyDown(Key: integer); // Процедура Обработчик клавиш (вверх, вниз, Энтер)
 
begin
 
case Key of
 
VK_Up: begin up;end;
 
VK_Down: begin down; end;
 
VK_Enter: begin
 
if f=1 then vibor:=1;
 
if f=2 then vibor:=2;
 
if f=3 then vibor:=3;
 
if f=4 then vibor:=4;end;
end;
 
 
 
procedure game(x, y,t, mousButton: integer);
 begin
 clearWindow(); 
  drawTextCentered(0,550,400,600,'Используйте мышь чтобы нарисовать треугольник, ESC-выйти в главное меню');
    xMouse := x;                 //запоминаем коорлинаты курсора
    yMouse := y;
 
                                     //очищаем окно
   
    if (t = 1) then                                 //если выбрана одна точка
    begin
      circle(x1, y1, 2);                                //рисуем на ее месте окружность
      Line(x1, y1, xMouse, yMouse);                     //рисем линию от точки до курсора мыши
    end;
    if (t = 2) then                                 //если выбрано две точки
    begin
      circle(x1, y1, 2);                                //рисуем первую точку
      circle(x2,y2,2);                                  //рисуем вторую точку
      Line(x1, y1, xMouse, yMouse);                     //линии от точек до курсора мыши
      Line(x2, y2, xMouse, yMouse);
      Line(x1, y1,x2,y2);                               //линия между точками
    end;
    if (t = 3) then                                 //если выбрано 3 точки
    begin
      circle(x1, y1, 2);                                //рисуем эти точки и линии между ними 
      circle(x2,y2,2);
      circle(x3,y3,2);
      Line(x1, y1, x3, y3);
      Line(x2, y2, x3, y3);
      Line(x1, y1,x2,y2);
    end;
    circle(xMouse, yMouse, 2);                          //рисуем курсор мыши
    
 
  end;
//-------------------------------------------------------------
 begin
 Windowsize(640,480);
 
Q[1]:='Титульный лист';
 
Q[2]:='О программе';
 
Q[3]:='Играть';
 
Q[4]:='Выход';
 
f:=1;
 
menu(i,f);
 
if vibor[1] then begin
clearwindow;
titul;
end;
 
if vibor[2] then begin
clearwindow;
aboutprogram;
end;
 
if vibor[1] then begin
clearwindow;
game;
end;
end.