Ошибка: "Ожидался идентификатор" - PascalABC.NET

program zipa; 
     uses Graph,crt;
     var i,n,gd,x,y,c,b,gm,a:integer; 
           PROCEDURE q;
     PROCEDURE w(b:integer);
     begin
     line(230,263,230,296);
     line(235,263,235,285);
     line(235,285,287,283);
     ellipse(288,293,290,90,15,10);
     ellipse(283,303,340,90,10,10);
     ellipse(265,298,175,325,35,14);
     setfillstyle(1,b);
     floodfill(285,290,6);
     line(225,263,225,298);
     line(220,263,220,285);
     line(220,285,165,275);               {nogi}
     ellipse(165,285,65,240,15,10);
     ellipse(170,295,90,200,13,10);
     ellipse(192,298,180,10,33,11);
     setfillstyle(1,b);
     floodfill(165,285,6);
     PROCEDURE m(x,y:integer);
     begin
     setcolor(8);
     ellipse(x+20,y+20,0,150,10,5);
     ellipse(x+40,y+20,0,150,10,5);
     end;
     PROCEDURE k(x,y:integer);
     begin
     setcolor(12);
     circle(x+5,y-15,3);        {zvetok}
     circle(x+5,y-20,3);
     circle(x+1,y-17,3);
     circle(x+2,y-12,3);
     circle(x+10,y-13,3);
     circle(x+9,y-18,3);
     circle(x+7,y-17,3);
     circle(x+7,y-22,3);
     circle(x-1,y-19,3);
     circle(x+5,y-10,3);
     circle(x+12,y-11,3);
     circle(x+10,y-20,3); 
     setcolor(2);
     ellipse(x+100,y+50,0,90,5,10);
     ellipse(x+110,y+50,90,180,5,10);
     line(x+105,y+40,x+105,y+35); 
     ellipse(x+300,y+50,0,90,5,10);
     ellipse(x+310,y+50,90,180,5,10);
     line(x+105,y+40,x+105,y+35); {trava}
     ellipse(x,y,0,90,5,10);
     ellipse(x+10,y,90,180,5,10);
     line(x+5,y-10,x+5,y-15);
     end;
     PROCEDURE l(x,y:integer);
     begin
     setcolor(8);
     line(x,y+10,x+80,y+10);
     ellipse(x,y,30,270,5,10);
     ellipse(x+10,y-10,30,270,5,10);
     ellipse(x+20,y-20,30,270,5,10);
     ellipse(x+30,y-30,30,270,5,10);          {kust}
     ellipse(x+40,y-35,0,180,6,15);
     ellipse(x+80,y,270,120,6,10);
     ellipse(x+70,y-10,270,120,6,10);
     ellipse(x+60,y-20,270,120,6,10);
     ellipse(x+50,y-30,270,120,6,10);
     setfillstyle(6,2);
     floodfill(x+30,y-30,8);
     end;
         Begin
         setcolor(3);
     line(0,200,640,200);
     setfillstyle(1,7);
     floodfill(205,300,3);
     setfillstyle(1,11);
     floodfill(205,100,3); 
     {gora}
     setcolor(3);
     line(300,200,350,100);
     line(350,100,420,200);
     line(340,120,350,110);
     line(350,110,370,130);
     setfillstyle(2,6);
     floodfill(350,150,3);
     setfillstyle(6,15);
     floodfill(350,105,3); 
     line(400,170,500,70);
     line(500,70,600,200);
     line(460,110,480,120);
     line(480,120,500,105);
     line(500,105,520,120);
     line(520,120,530,110);
     setfillstyle(2,6);
     floodfill(480,130,3);
     setfillstyle(6,15);
     floodfill(480,100,3); 
     setcolor(3);
     ellipse(630,200,30,155,50,50);
     setfillstyle(1,14);
     floodfill(630,190,3);
     setcolor(12);
     line(600,160,590,140);
     line(610,155,605,135);
     line(620,150,615,130);
     line(630,150,628,130);
     line(590,168,575,150); 
     l(50,250);
     l(50,400);
     l(400,330);
     l(500,350);
     l(10,350);
     l(100,400);
     l(350,370); 
     m(300,50);
     m(100,45);
     m(40,60);
     m(140,20);
     m(200,15);
     m(420,35);
     m(50,20);
     m(500,35);
     m(550,50); 
     for i:=1 to 10 do begin
     k(i*45,480);
     k(i*40,450);
     k(i*60,250);
     end;
     k(150,350);
     k(300,350);
     k(380,320);
     k(400,300);
     k(500,350);
     k(500,350);
     k(450,400);
     k(480,400);
     k(450,450);
     k(500,350);
     k(250,400);
     k(300,450); 
     setcolor(0);
     ellipse(620,450,50,220,150,100);
     ellipse(600,350,0,360,20,10);
     ellipse(570,355,0,360,10,5);
     ellipse(600,340,0,360,10,5);
      setfillstyle(1,0);
      floodfill(570,355,0);
      floodfill(570,357,0);
      floodfill(600,350,0);
      floodfill(600,352,0);
      setfillstyle(1,15);
      floodfill(600,342,0);
      floodfill(600,339,0);
      setfillstyle(1,1);
      floodfill(620,440,0); 
     setcolor(6);
     ellipse(225,100,0,180,65,40);
     ellipse(160,120,90,270,5,20);
     ellipse(290,120,270,90,5,20);
     line(160,140,187,180);           {golova}
     line(290,140,270,180);
     ellipse(255,190,225,45,20,13);
     ellipse(200,190,135,320,19,13); 
     ellipse(205,170,0,180,11,54);            {glaz 1}
     ellipse(205,145,0,180,10,14);
     ellipse(203,167,0,180,4,13);
     ellipse(205,172,0,180,14,5);
     setfillstyle(1,10);
     floodfill(205,145,6);
     setfillstyle(1,7);
     floodfill(205,160,6);
     setfillstyle(1,15);
     floodfill(205,130,6); 
     ellipse(255,170,0,180,11,54);
     ellipse(255,145,0,180,10,14);       {glaz 2}
     ellipse(258,167,0,180,4,13);
     ellipse(255,172,0,180,14,5);
     setfillstyle(1,10);
     floodfill(255,145,6);
     setfillstyle(1,7);
     floodfill(257,160,6);
     setfillstyle(1,15);
     floodfill(255,130,6); 
     ellipse(230,187,0,360,10,5);
     ellipse(215,187,305,45,4,6);   {rot}
     ellipse(245,187,120,255,4,6);
     line(220,187,240,187);
     setfillstyle(1,4);
     floodfill(232,186,6);
     floodfill(232,188,6); 
     {tulovish}
     ellipse(245,210,90,150,10,13);
     ellipse(207,206,0,45,10,13);
     line(218,205,205,235);
     line(235,205,250,235);
     ellipse(245,237,320,50,6,8);
     ellipse(210,237,100,260,6,8);
     line(207,245,220,215);
     line(248,245,235,215);
     ellipse(227,245,180,360,20,20);
     ellipse(248,250,240,90,5,5);
     ellipse(207,250,90,300,5,5);
     setfillstyle(1,14);
     floodfill(235,120,6);
     setfillstyle(1,6);
     floodfill(247,250,6);
     floodfill(203,250,6); 
     line(230,70,225,45);
     line(235,60,230,35);{irokes}
     line(240,60,240,40); 
     {browi}
     ellipse(255,115,10,80,20,20);
     ellipse(205,115,100,170,20,20); 
     {resniz}
     ellipse(251,108,270,30,5,10);
     ellipse(256,106,270,30,5,10);
     ellipse(260,110,270,30,5,10); 
     ellipse(209,108,150,270,5,10);
     ellipse(204,106,150,270,5,10);
     ellipse(200,110,150,270,5,10); 
     w(6);
      End; 
                  PROCEDURE w(b:integer); 
     begin
     line(230,263,230,296);
     line(235,263,235,285);
     line(235,285,287,283);
     ellipse(288,293,290,90,15,10);
     ellipse(283,303,340,90,10,10);
     ellipse(265,298,175,325,35,14);
     setfillstyle(1,b);
     floodfill(285,290,6);
     line(225,263,225,298);
     line(220,263,220,285);
     line(220,285,165,275);
     ellipse(165,285,65,240,15,10);
     ellipse(170,295,90,200,13,10);
     ellipse(192,298,180,10,33,11);
     setfillstyle(1,b);
     floodfill(165,285,6);
     end; 
     PROCEDURE m1(x,y:integer);
     begin
     setcolor(4);
     line(x,y,x+5,y);
     line(x+5,y,x+8,y-5);   {zvezda}
     line(x+8,y-5,x+13,y);
     line(x+13,y,x+18,y);
     line(x+18,y,x+14,y+4);
     line(x+14,y+4,x+20,y+8);
     line(x+20,y+8,x+8,y+6);
     line(x+8,y+6,x+2,y+8);
     line(x+2,y+8,x+4,y+4);
     line(x+4,y+4,x,y);
     setfillstyle(1,14);
     floodfill(x+10,y+3,4);
     end; 
     PROCEDURE t;
     begin
     setcolor(4);
     ellipse(0,0,180,70,50,50);
     setfillstyle(1,14);      {luna}
     floodfill(0,0,4); 
     setcolor(1);
     ellipse(620,450,50,220,150,100);
     setfillstyle(1,9);      {ozero}
     floodfill(620,450,1);
     end; 
     PROCEDURE k1(x,y:integer);
     begin
     setcolor(12);
     circle(x+5,y-15,3);        {zvetok}
     circle(x+5,y-20,3);
     circle(x+1,y-17,3);
     circle(x+2,y-12,3);
     circle(x+10,y-13,3);
     circle(x+9,y-18,3);
     circle(x+7,y-17,3);
     circle(x+7,y-22,3);
     circle(x-1,y-19,3);
     circle(x+5,y-10,3);
     circle(x+12,y-11,3);
     circle(x+10,y-20,3);
     setcolor(2);
     ellipse(x,y,0,90,5,10);
     ellipse(x+10,y,90,180,5,10);      {trava}
     line(x+5,y-10,x+5,y-15); 
     ellipse(x,y,0,90,5,10);
     ellipse(x+10,y,90,180,5,10);
     line(x+5,y-10,x+5,y-15);
     end; 
     PROCEDURE l1(x,y:integer); 
     begin
     setcolor(8);
     line(x,y+10,x+80,y+10);
     ellipse(x,y,30,270,5,10);
     ellipse(x+10,y-10,30,270,5,10);
     ellipse(x+20,y-20,30,270,5,10);
     ellipse(x+30,y-30,30,270,5,10);
     ellipse(x+40,y-35,0,180,6,15);      {kust}
     ellipse(x+80,y,270,120,6,10);
     ellipse(x+70,y-10,270,120,6,10);
     ellipse(x+60,y-20,270,120,6,10);
     ellipse(x+50,y-30,270,120,6,10);
     setfillstyle(6,2);
     floodfill(x+30,y-30,8);
     end; 
                 BEGIN
     initgraph(gd,gm, 'd:/distr/tp7'); 
     t;
     l1(50,250);
     l1(50,400);
     l1(420,330);
     l1(550,340);
     l1(10,350);
     l1(100,400);
     l1(350,370);
     l1(400,250);
     l1(470,270); 
     m1(300,50); m1(100,45); m1(40,60); m1(140,20); m1(140,100); m1(200,150);
     m1(420,100); m1(200,15); m1(420,35); m1(50,20); m1(500,35); m1(550,50);
     m1(500,80); m1(500,150); m1(550,150); m1(600,20); m1(610,35); m1(580,80);
     m1(400,80); m1(400,150); m1(450,100); m1(350,70); m1(370,35); m1(300,100);
     m1(240,100); m1(200,100); m1(20,150); m1(200,150);m1(150,150); m1(50,100); 
     for i:=1 to 10 do begin
     k1(i*45,480);
     k1(i*40,450);
     k1(i*70,300);
     k1(i*40,350);
     end;
     k1(150,350);
     k1(300,350);
     k1(380,320);
     k1(400,300);
     k1(500,350);
     k1(500,350);
     k1(450,400);
     k1(480,400);
     k1(450,450);
     k1(500,350);
     k1(250,400);
     k1(300,450); 
     setcolor(6);
     ellipse(225,100,0,180,65,40);
     ellipse(160,120,90,270,5,20);
     ellipse(290,120,270,90,5,20);
     line(160,140,187,180);           {golova}
     line(290,140,270,180);
     ellipse(255,190,225,45,20,13);
     ellipse(200,190,135,320,19,13); 
     ellipse(205,170,0,180,11,54);           {glaz 1}
     ellipse(205,145,0,180,10,14);
     ellipse(203,167,0,180,4,13);
     ellipse(205,172,0,180,14,5);
     setfillstyle(1,10);
     floodfill(205,145,6);
     setfillstyle(1,7);
     floodfill(205,160,6);
     setfillstyle(1,15);
     floodfill(205,130,6); 
     ellipse(255,170,0,180,11,54);
     ellipse(255,145,0,180,10,14);       {glaz 2}
     ellipse(258,167,0,180,4,13);
     ellipse(255,172,0,180,14,5);
     setfillstyle(1,10);
     floodfill(255,145,6);
     setfillstyle(1,7);
     floodfill(257,160,6);
     setfillstyle(1,15);
     floodfill(255,130,6); 
     ellipse(230,187,0,360,10,5);
     ellipse(215,187,305,45,4,6);   {rot}
     ellipse(245,187,120,255,4,6);
     line(220,187,240,187);
     setfillstyle(1,6);
     floodfill(232,186,6);
     floodfill(232,188,6); 
     {tulovish}
     ellipse(245,210,90,150,10,13);
     ellipse(207,206,0,45,10,13);
     line(218,205,205,235);
     line(235,205,250,235);
     ellipse(245,237,320,50,6,8);
     ellipse(210,237,100,260,6,8);
     line(207,245,220,215);
     line(248,245,235,215);
     ellipse(227,245,180,360,20,20);
     setfillstyle(1,14);
     floodfill(235,120,6);
     ellipse(248,250,240,90,5,5);
     ellipse(207,250,90,300,5,5);
     setfillstyle(1,6);
     floodfill(247,250,6);
     floodfill(203,250,6); 
     line(230,70,225,45);
     line(235,60,230,35);{irokes}
     line(240,60,240,40); 
     {browi}
     ellipse(255,115,10,80,20,20);
     ellipse(205,115,100,170,20,20); 
     {resniz}
     ellipse(251,108,270,30,5,10);
     ellipse(256,106,270,30,5,10);
     ellipse(260,110,270,30,5,10); 
     ellipse(209,108,150,270,5,10);
     ellipse(204,106,150,270,5,10);
     ellipse(200,110,150,270,5,10); 
     repeat
     w(14);
     until keypressed; 
     q;
     readln;
     closegraph;
     END.