Составить программу движения звезды

uses graphabc;
 
var s1,s2,s3,s4,s5,s1s,s2s,s3s,s4s,s5s:integer;
var b: boolean;
begin
 
SetWindowWidth(960);
SetWindowHeight(660);
SetPenColor(clRed);
 
s1:=770;
s2:=710;
s3:=823;
s4:=880;
s5:=860;
LockDrawing;
Repeat
 
Line(480,s2,505,s1);
Line(505,s1,575,s1);
Line(575,s1,518,s3);
Line(518,s3,538,s4);
Line(538,s4,480,s5);
Line(480,s5,423,s4);
Line(423,s4,443,s3);
Line(443,s3,385,s1);
Line(385,s1,455,s1);
Line(480,s2,455,s1);
if (s1>518) then s1s:=s1s*(-1);
if (s2>450) then s2s:=s2s*(-1);
if (s3>563) then s3s:=s3s*(-1);
if (s4>630) then s4s:=s4s*(-1);
if (s5>590) then s5s:=s5s*(-1);
s1:=s1+s1s;
s2:=s2+s2s;
s3:=s3+s3s;
s4:=s4+s4s;
s5:=s5+s5s;
 
sleep(50);
redraw;
 
s1:=s1-5;
s2:=s2-5;
s3:=s3-5;
s4:=s4-5;
s5:=s5-5;
until b;
 
end.

uses graphABC;
procedure zvezda(x,y:integer);
var  i:integer;
     p:array of Point;
     a:real;
begin
setlength(p,11);
a:=pi/2;
for i:=0 to 9 do
 begin
  if odd(i)then
   begin
    p[i].x:=x+round(20*cos(a));
    p[i].y:=y-round(20*sin(a));
   end
  else
   begin
    p[i].x:=x+round(50*cos(a));
    p[i].y:=y-round(50*sin(a));
   end;
  a:=a+pi/5;
 end;
p[10]:=p[0];
polygon(p);
end;
var x,y:integer;
begin
SetWindowWidth(960);
SetWindowHeight(660);
SetPenColor(clRed);
CenterWindow;
x:=windowwidth div 2;
y:=windowheight-50;
lockdrawing;
repeat
clearwindow;
zvezda(x,y);
sleep(50);
y:=y-5;
redraw;
until y<=50;
end.

uses
  abcObjects, graphABC;
 
var
  star: abcObjects.StarABC;
 
begin
  star := new StarABC(Window.Width div 2, Window.Height, 40, 20, 5, Color.Yellow);
  star.Position := new Point(star.Position.X, star.Position.Y - star.Radius);
  for var i := star.Position.Y downto 0 do
  begin
    Sleep(10);
    star.MoveTo(star.Position.X, star.Position.Y - 1);
  end;
end.