Анимация в Паскал

Program Program3b_lesson4;

Uses Crt;

Label l1;

 var y:string;

 color1,gx,gy:Integer;


 Begin

             Color1 :=0;

            gx:=2;

            gy:=2 ;

            Repeat

           l1:    clrscr;

       textcolor(Color1);

       gotoxy(gx+1,gy-1);
       writeln(' 0');
       delay(100);
        gotoxy(gx,gy);

       writeln('<:)}');
       delay(100);
       gotoxy(gx+1,gy+1);
       writeln(' 0');
       delay(100);

          Color1:=Color1 +1;

          gx:=gx+1;

          gy:=gy+1;


         if gx=10 then

         begin

         Color1 :=0;

            gx:=10;

            gy:=10 ;


         repeat

         clrscr;

       textcolor(Color1);

       gotoxy(gx,gy);
         writeln(' 0');
       writeln('<:)}');
       writeln(' 0');


       delay(100);

          Color1:=Color1 +1;

          gx:=gx-1;

          gy:=gy-1;

          Until gx=2;

          end;

    if gx=1 then goto l1;



        until y='y';


End.