Двигающиеся НЛО на PascalABC

uses graphABC;
const r=20;//расчетный размер НЛО
      n=300;//количество звезд
type mas=array [1..n]of point;//массив точек на небе
procedure Nebo(a:mas);//рисование звезд
begin
for var i:=1 to n do
setpixel(a[i].x,a[i].y,clYellow);
end;
procedure Nlo(x,y:integer);//рисование НЛО
begin
setpencolor(clYellow);
setbrushcolor(clYellow);
ellipse (x-r,y-(r div 3+2),x+r,y+(r div 3+2));
setbrushcolor(clBlack);
ellipse (x-r,y-4-(r div 3),x+r,y-4+(r div 3));
floodFill(x+1,y+4,clYellow);
line (x+7,y-6,x+10,y-12);
line (x-7,y-6, x-10, y-12);
circle (x+10,y-12,2);
circle (x-10,y-12,2);
end;
var a:mas;
    x,y1,y2,y3,xm,ym:integer;
begin
randomize;
xm:=windowwidth;
ym:=windowheight;
clearwindow(clBlack);
setbrushcolor(clBlack); //установим черный фон
rectangle(0,0,xm,ym);
for var i:=1 to n do
 begin
  a[i].x:=random(xm);
  a[i].y:=random(ym);
 end;
x:=2*r;
y1:=ym div 3;
y2:=ym div 2;
y3:=2*ym div 3;
lockdrawing;
repeat
clearwindow(clBlack);
Nebo(a);
Nlo(x,y1);
Nlo(x,y2);
Nlo(x,y3);
sleep(50);
x:=x+2;
if x>xm-r then x:=2*r;
redraw
until false;
end.

uses GraphWPF;
var p:=ArrGen(100,i->Pnt(Random(Window.Width),Random(Window.Height)));
type
  нло = class
    x,y,dx,dy:Real;
    constructor;begin x:=Random(Window.Width);y:=Random(Window.Height);dx:=Random(-10,10);dy:=Random(-10,10);end;
    procedure draw;begin dx+=random-0.5;dy+=random-0.5;FillEllipse(x,y,20,5);x+=dx;if x>Window.Width then x-=Window.Width else if x<0 then x+=Window.Width;y+=dy;if y>Window.Height then y-=Window.Height else if y<0 then y+=Window.Height;end;
  end;
var n:=new нло;
procedure g;begin Window.Clear(rgb(0,0,0));foreach var z in p do circle(z,0.5);n.draw;end;
begin
  Pen.Color:=rgb(128,128,128);Brush.Color:=rgb(192,192,192);BeginFrameBasedAnimation(g);
end.