лёгкая анимация

uses crt,graph;
{вращение кружка}
procedure Vrash(a:real;var x,y:integer;const centrx,centry,r:integer);
var px:integer;
begin
a:=a*pi/180;
x:=centrx+round(r*cos(a));
y:=centry-round(r*sin(a));
end;
var gd,gm:integer;
    ch:char;
    tx,ty,cx,cy,dx,dy:integer;
    r,i:integer;
    a:real;
begin
gd:=0;
initgraph(gd,gm,'');
tx:=300;ty:=220;
Setcolor(12);
Circle(tx,ty,50);
Setfillstyle(1,12);
Fillellipse(tx,ty,50,50);
a:=0;
r:=70;
while a<=720 do{2 оборота}
 begin
  Vrash(a,cx,cy,tx,ty,r);
  setcolor(15);
  circle(cx,cy,5);
  Setfillstyle(1,15);
  Fillellipse(cx,cy,5,5);
  delay(10);
  setcolor(0);
  circle(cx,cy,5);
  Setfillstyle(1,0);
  Fillellipse(cx,cy,5,5);
  a:=a+1;
 end;
{к точке 300,15}
dx:=round((cx-300)/10);
dy:=round((cy-15)/10);
while cy>15 do
 begin
  setcolor(15);
  circle(cx,cy,5);
  Setfillstyle(1,15);
  Fillellipse(cx,cy,5,5);
  delay(10);
  setcolor(0);
  circle(cx,cy,5);
  Setfillstyle(1,0);
  Fillellipse(cx,cy,5,5);
  cx:=cx-dx;
  cy:=cy-dy;
 end;
 {фиксируем в точке}
setcolor(15);
circle(300,15,5);
Setfillstyle(1,15);
Fillellipse(300,15,5,5);
readln
end.