Движение объекта

uses GraphABC;
 
type
Metla=class
 public
        x,y:integer; 
        z:integer;   
        x1:integer;
        y1:integer;
        z1:integer;
        x2:integer;
        y2:integer;  
        z2:integer; 
        x3:integer;  
        y3:integer;
        z3:integer;
        x4:integer;  
        y4:integer;
        z4:integer;
        x5:integer;
   constructor Create;
   begin
    x:=windowwidth div 2;
    y:=windowheight div 2;
    z:=80;
    x1:=45;
    y1:=35;
    z1:=140;
    x2:=55;
    y2:=65;
    z2:=135;
    x3:=75;
    y3:=130;
    z3:=85;
    x4:=120;
    y4:=95;
    z4:=110;
    x5:=105;
   end;
   
   procedure Draw();// Рисует шарик текущим цветом
   procedure Hide();          // Выводит шарик на экран
   procedure Show();          // Делает его невидимым
end;
 
procedure Metla.Draw();
 
 
Begin
  line(x-z,y+x1,x+z,y-y1);
  line(x-z,y+x1,x-z1,y+x1);
  line(x-z,y+x1,x-z1,y+x2);
  line(x-z,y+x1,x-z1,y+y2);
  line(x-z,y+x1,x-z2,y+x3);
  line(x-z,y+x1,x-y3,y+z3);
  line(x-z,y+x1,x-z1,y+y2);
  line(x-z,y+x1,x-x4,y+y4);
  line(x-z,y+x1,x-z4,y+x5);
end;   
 
procedure Metla.Hide();
Begin
 Pen.Color:=clWhite;
 Draw;
end;
 
procedure Metla.Show();
Begin
 Pen.Color:=clBlack;
 Draw;
end;
 
var
 M:Metla;
 i:integer;
begin
 SetPenColor(clBlack);
 SetPenWidth(1);
 SetSmoothing(false);
 
 M:= new Metla;
 M.Draw;
 readln;
 for i:=1 to 50 do
 begin
  M.Hide;
  M.x:=M.x+1;
  M.y:=M.Y+2;
  M.Show;
  Sleep(10);
 end;
 for i:=1 to 70 do
 begin
 
  M.Hide;
  M.x:=M.x+1;
  M.y:=M.y-2;
  M.Show;
  Sleep(10);
 end;
 readln;
 
end.

uses GraphABC;
type
Cylinder=class
 public
        x,y:integer; 
        z:integer;
        x1:integer;
        y1:integer;
        z1:integer;
        x2:integer;
        y2:integer;  
        z2:integer; 
        x3:integer;  
        y3:integer;
        x4:integer;  
        y4:integer;
   
        
   constructor Create;
   begin
    x:=windowwidth div 2;
    y:=windowheight div 2;
    z:=15;
    x1:=100;
    y1:=80;
    z1:=100;
    x2:=300;
    y2:=120;
    z2:=180;
    x3:=100;
    y3:=160;
    x4:=300;
    y4:=200;
   end;
   
   procedure Draw();// Рисует объект текущим цветом
   procedure Hide();          // Выводит объект на экран
   procedure Show();          // Делает его невидимым
end;
 
procedure Cylinder.Draw();
var
 w1,w2,w3,w4,v1,v2,v3,v4,p1,p2:integer;
 
Begin
 w1:=x1-z;
 w2:=x2+z;
 w3:=x3-z;
 w4:=x4+z;
 v1:=y1-z;
 v2:=y2+z;
 v3:=y3-z;
 v4:=y4+z;
 p1:=z1;
 p2:=z2;
SetPenColor(Clblack);
DrawEllipse(w1,v1,w2,v2);
 
SetPenColor(Clblack);
DrawEllipse(w3,v3,w4,v4);
Line(w1,p1,w1,p2);
Line(w2,p1,w2,p2);
end;   
 
procedure Cylinder.Hide();
Begin
 Pen.Color:=clWhite;
 Draw;
end;
 
procedure Cylinder.Show();
Begin
 Pen.Color:=clBlack;
 Draw;
end;