Организовать мигание графического объекта (маяка) на экране

unit modul_4;
interface
uses graph,crt;
const r=20;{расчетный размер НЛО}
type mas=array[1..300] of Pointtype;{массив точек на небе}
procedure dv_nlo;
implementation
procedure dv_nlo;
var a:mas;
procedure Nebo(var a:mas;c:integer);
var i:integer;
begin
for i:=1 to 300 do
putpixel(a[i].x,a[i].y,c);
end;
procedure Nlo(x,y,c:integer);
begin
setcolor(c);
ellipse (x,y,0,360,r,r div 3+2);
ellipse (x,y-4,190,359,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-12,2);
circle (x-10,y-12,2);
setfillstyle(1,c);
floodFill(x+1,y+4,c);
end;
var xm,ym,i,x,y:integer;
begin
xm:=getMaxX;
ym:=getmaxY;
outtextXY(xm div 2-50,20,'Exit any key');
x:=2*r;
y:=ym div 2;
for i:=1 to 300 do
 begin
  a[i].x:=random(xm);
  a[i].y:=random(ym);
 end;
repeat
x:=x+2;
if x<=xm div 2 then y:=y-1
else y:=y+1;
Nebo(a,14);
Nlo(x,y,11);
delay(100);
Nlo(x,y,0);
if x>xm-r then x:=2*r;
until keypressed;
readln;
end;
end.

unit modul_5;
interface
uses graph,crt;
procedure mayak;
implementation
procedure mayak;
var x,y:integer;
begin
x:=getmaxX div 2;
y:=30;
setcolor(1);
setfillstyle(1,1);
bar(0,getmaxY-50,getmaxX,getmaxY);
setcolor(6);
line(x-20,y+20,x+20,y+20);
line(x-20,y+20,x-60,getmaxY-50);
line(x+20,y+20,x+60,getmaxY-50);
line(x-60,getmaxY-50,x+60,getmaxY-50);
setfillstyle(1,6);
floodfill(x,getmaxY-100,6);
setcolor(7);
setfillstyle(1,7);
bar(x-20,y-20,x+20,y+20);
repeat
setcolor(14);
setfillstyle(1,14);
fillellipse(x,y,20,20);
delay(1000);
setcolor(7);
setfillstyle(1,7);
fillellipse(x,y,20,20);
delay(200);
until keypressed;
readln
end;
end.

uses graph,crt,modul_4,modul_5;
var  x,y:integer;
     w:char;
begin
clrscr;
randomize;
repeat
writeln('Vybor programmy');
writeln('1-mayak');
writeln('2-nlo');
writeln('drugoe-vyhod');
readln(w);
case w of
'1':begin
    initGraph(x,y,'');
    mayak;
    restorecrtmode;
    end;
'2':begin
    initGraph(x,y,'');
    dv_nlo;
    restorecrtmode;
    end;
else exit;
end;
until not(w in ['1','2']);
end.