рисунок на тему мультипликация с запоминанием части экрана

Uses Graph, CRT;  
const 
r = 20; {Характерный размер НЛО}  
pause = 50; {Длительность паузы}  
var 
d,m,e,xm,ym,x,y,lx,ly,rx,ry,
Size,i,dx,dy,Width,Height: Integer;  
Saucer : Pointer;  
label 
loop;  
begin 
{Инициируем графику}  
d := Detect; initGraph(d, m, ' ') ;
e := GraphResult;
if e <> grOk then
WriteLn(GraphErrorMsg(e))  
else  
begin 
x := r*5; 
y := r*2;
xm := GetMaxX div 4; 
ym := GetMaxY div 4; 
{Создаем "тарелку" из двух эллипсов с усами антенн} 
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-12,2); 
Circle (x-10,y-12,2);
FloodFill(x+1,y+4,White);
{Определяем габариты НЛО и помещаем его в кучу} 
lx:= x-r-1;
ly := y-14;
rx := x+r+1;
ry := y+r div 3+3;
Width := rx - lx + 1; 
Height:= ry - ly + 1; 
Size := ImageSize(lx, ly, rx, ry); 
GetMem (Saucer, Size); 
GetImage (lx, ly, rx, ry, Saucer^);
{Стираем построенное} 
PutImage (lx, ly, Saucer^, xorPut);
{Создаем звездное небо} 
Rectangle(xm,ym,3 *xm,3 *ym); 
SetViewPort(xm+1,ym+1,3*xm-1,3*ym-1,ClipOn); 
xm := 2*xm; 
ym := 2*ym; 
for i:=1 to 200 do 
PutPixel (Random(xm), Random(ym), White) ;
{Задаем начальное положение НЛО и направление движения} 
x := xm div 2;
y := ym div 2;
dx := 10; 
dy := 10; 
{Основной цикл} 
repeat 
PutImage(x,y,Saucer^,xorPut); {Изображаем НЛО на}
Delay(pause); {новом месте и после}  
PutImage (x, y, Saucer^, XorPut);{паузы стираем его}
{Получаем новые координаты}  
loop: x := x+dx; 
y := y+dy;
{НЛО достиг границы экрана?}  
if (x<0) or (x+Width+1>xm) or  
(y<0) or (y+Height+1>ym) then
begin {Да - НЛО достиг границы: меняем направление его перемещения}  
x := x-dx;  
y:= y-dy; 
dx:= GetMaxX div 10 - Random(GetMaxX div 5);
dy := GetMaxY div 30 - Random(GetMaxY div 15);  
goto loop  
end 
until KeyPressed; 
if ReadKey=#0 then x := ord(ReadKey);  
CloseGraph  
end  
end.