Полет космического корабля

Uses crt,Graph;
var x1,y1,x2,y2:integer;
    xp,yp:integer;
    size:word;
    p:pointer;
Procedure GrInit;
var GraphDriver:integer;
    GraphMode:integer;
    ErrorCode:integer;
Begin
     Graphdriver:=detect;
     InitGraph(GraphDriver, GraphMode,'');
     ErrorCode:=GraphResult;
     If ErrorCode<>GrOk then
     begin
        Writeln('Oshibka grafiki',GraphErrorMsg(ErrorCode));
        Writeln('Rabota prervana');
        Halt(1);
     end;
End;
Begin
GrInit;
 SetBKColor(blue);
 SetColor(red);
 SetTextStyle(4,1,3);
 SetLinestyle(0,0,1);
 {Bar(280,220,320,240);}
 rectangle(280,220,320,240);
 line(320,220,345,230);
 line(320,240,345,230);
 rectangle(271,210,278,250);
 circle(290,230,5);
 rectangle(285,215,295,218);
 rectangle(300,215,310,218);
 rectangle(285,240,295,243);
 rectangle(300,240,310,243);
 size:=ImageSize(271,210,345,250);
 getmem(p,size);
 getImage(271,210,345,250,p^);
 cleardevice;
 y1:=5;  {точка старта по у}
      begin
            for x1:=5 to 640 do
                begin
                     putimage(x1,y1,p^,1);
                     delay(70);
                     x1:=x1+5;
                     cleardevice;
                end;
              end;
 
End.

автор Wolf http://www.cyberforum.ru/