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

Задание

С помощью средств модуля Graph Turbo Pascal реализовать программу рекламы третьего факультета, включающую в себя:

1. Отображение графического  объекта, включающего линии, круги,  дуги и т.д.

2.  Анимацию 

3. Текст

 

Блок-схема

 

 

 

 

 

нет

 

да

 

 

 

 

 
Текст программы

program rak(input,output); {название программы}

uses CRT,graph; {описание модулей}

var a,b,x,y: integer; {описание переменных}

   procedure plosadka; {описание траектории}

   begin setcolor(red);

      setfillstyle(5,red);

       line(0,450,650,450);

       floodfill(0,470,red);

   end;

     procedure raketa; {рисуем ракету}

    begin for a:=1 to 300 do begin

        setcolor(blue);

         setfillstyle(9,blue);

        line(300,300-a,320,320-a);

         line(300,300-a,280,320-a);

         line(280,320-a,280,350-a);

        line(320,320-a,320,350-a);

        line(320,350-a,340,400-a);

        line(280,350-a,260,400-a);

         line(260,400-a,340,400-a);

         floodfill(300,370-a,blue);

         setcolor(red);

         setfillstyle(1,red);

         circle(300,330-a,10);

         floodfill(300,330-a,red);

         delay(100);

         setcolor(green+blue);

         setfillstyle(9,green+blue);

         line(300,330-a,320,320-a);

         line(300,300-a,280,320-a);

        line(280,320-a,280,350-a);

        line(320,320-a,320,350-a);

         line(320,350-a,340,400-a);

         line(280,350-a,260,400-a);

        line(260,400-a,340,400-a);

         floodfill(300,370-a,green+blue);

         setcolor(green+blue);

         circle(300,330-a,10);

         floodfill(300,330-a,green+blue);

         end;

     end;

      begin

             initgraph(a,b,'C:\TMP\315');

             delay(3000);

             setbkcolor(green+blue);

             plosadka;

            raketa;

             setcolor(green);

             outtextxy(180,200,'Да здравствует третий факультет'); {вводим текст}

            delay(10000);

             readkey;

             until Key Pressed;

             CloseGraph                          

         end.