Переделайте пожалуйста на pascalABC. Программа должна показывать движущуюся НЛО

uses crt, graph;
const k=20; pause=50;
var d,m,xmin,xm,ymin,ym,x,y,tx,ty,rx,size,i,dx,dy,width,height:integer;
sauser: pointer;
begin
randomize;
d:=detect;
initgraph(d.m.'путь к драйверу');
settextstyle(0,0,2);
outtextXY(50,10,'демонстрация движения НЛО');
x:r*5; y:=r*2;
xn:=getmaxX-5; ym:=getmaxY-25;
ellipse(x, y,0,360,r,r div 3+2);
ellipse(x,y-4,190,357,r,r div 3);
line(x+7,y-6,x+10,y-12);
line(x-7,y-6,x+10,y-12);
circle(x+10,y-10,2);
circle(x-10,y-10,2);
floodFill(x+1,y+4,white);
tx:=x-r; ty:=y-14;, rx:=x+r;
ry:=y+r div 3+3;
width:=rx-tx+1;
size:=imagesize(tx,ty,rx,ry);
getmem(sauser,size);
getimage(tx,ty,rx,ry,sauser^);
putimage(tx,ty,sauser^,xorput);
setstyle(1,blue);
setcolor(white);
rectangle(xmin,ymin,getmaxX,getmaxY);
SetViewPort (xmin,ymin,GetmaxX,GetmaxY,ClipOn);
FloodFill(xmin+1,ymin+1,White);
For i:=1 to 500 do
PutPixel(Random(GetmaxX));
Random((GetmaxY-ymin),15);
X:=xm div 3 - xmin;
Y:=ym div 3 - ymin;
Dx:=6;
Dy:=6;
Repeat
PutImage(x,y,sauser^,XorPut);
Delay(pause);
PutImage(x,y,sauser^,XorPut);
If (x<xmin) or (y<ymin) or (x+widht+1>xm) or (y+height+1>ym) then
Begin
If(x-dx<xmin)then x:=xmin else x:=x-dx;
If(y-dy<ymin)then y:=ymin else y:=y-dy;
Dx:=getmaxX div 10 - random(getmaxX div 4);
Dy:=getmaxY div 10 - random(getmaxY div 4);
End
Else
Begin
If(x+dx<xm) then x:=random(getmaxX)-random(getmaxX div 4);
If(y+dy<ym) then y:=dy else y:=random(getmaxY)-random(getmaxY div 3);
End;
Until KeyPressed;
FreeMem(sauser,size);
Closegraph;
End;
End.

uses graphABC,crt;
const r=20;{расчетный размер НЛО}
type point=record
            x,y:integer;
           end;
     mas=array[1..300] of point;{массив точек на небе}
procedure Nebo(a:mas);{рисование звезд}
var i:integer;
begin
for i:=1 to 300 do
setpixel(a[i].x,a[i].y,clYellow);
end;
procedure Nlo(x,y:integer);{рисование НЛО}
begin
setpencolor(clYellow);
ellipse (x-r,y-(r div 3+2),x+r,y+(r div 3+2));
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,y,xm,ym,i:integer;
begin
randomize;
hidecursor;
xm:=windowwidth;
ym:=windowheight;
setbrushcolor(clBlack); //установим черный фон
rectangle(0,0,xm,ym);
for i:=1 to 300 do
 begin
  a[i].x:=random(xm);
  a[i].y:=random(ym);
 end;
x:=2*r;
y:=ym div 2;
lockdrawing;
repeat
clearwindow(clBlack);
Nebo(a);
Nlo(x,y);
delay(50);
x:=x+2;
if x<=xm div 2 then y:=y-1
else y:=y+1;
if x>xm-r then x:=2*r;
redraw
until keypressed;
end.