Анимация фигуры - изменение размеров и перемещение - PascalABC.NET

Формулировка задачи:

Помогите пожалуйста анимировать фигуру. Сначала она должна уменьшаться, а потом двигаться по диагонали к каждому углу экрана.

program one;
uses graphabc;
begin
setwindowsize (640,640);
setpenwidth(5);
circle(320,320,130);
Line(320,0,160,320);
line(160,320,320,640);
line(320,650,480,320);
line(480,320,320,0);
FloodFill(320,100,clblack);
line(0,0,640,0);
line(0,0,160,320);
line(160,320,0,640);
line(0,640,640,640);
line(640,640,480,320);
line(480,320,640,0);
end.

Решение задачи: «Анимация фигуры - изменение размеров и перемещение»

textual
                            Листинг программы 
                        

                            uses graphabc;
procedure figura(x,y,r,a:integer);
begin
setpenwidth(3);
r:=round(a*0.35);
circle(x,y,r);
Line(x,y-a,x-a,y+a);
line(x,y-a,x+a,y+a);
line(x,y+a,x-a,y-a);
line(x,y+a,x+a,y-a);
FloodFill(x,y-r-5,clblack);
end;
var c,r,a,x,y:integer;
begin
setwindowsize (640,640);
centerwindow;
c:=windowwidth div 2;
a:=c;
x:=c;
y:=c;
figura(x,y,r,a);
lockdrawing;
while a>50 do
 begin
  clearwindow;
  a:=a-5;
  figura(x,y,r,a);
  sleep(50);
  redraw;
 end;
while x<windowwidth-a do
 begin
  clearwindow;
  x:=x+5;
  y:=y-5;
  figura(x,y,r,a);
  sleep(50);
  redraw;
 end;
x:=c;
y:=c;
clearwindow;
unlockdrawing;
figura(x,y,r,a);
lockdrawing;
while x>a do
 begin
  clearwindow;
  x:=x-5;
  y:=y-5;
  figura(x,y,r,a);
  sleep(50);
  redraw;
 end;
x:=c;
y:=c;
clearwindow;
unlockdrawing;
figura(x,y,r,a);
lockdrawing;
while x>a do
 begin
  clearwindow;
  x:=x-5;
  y:=y+5;
  figura(x,y,r,a);
  sleep(50);
  redraw;
 end;
x:=c;
y:=c;
clearwindow;
unlockdrawing;
figura(x,y,r,a);
lockdrawing;
while x<windowwidth-a do
 begin
  clearwindow;
  x:=x+5;
  y:=y+5;
  figura(x,y,r,a);
  sleep(50);
  redraw;
 end;
unlockdrawing;
setfontsize(20);
setfontcolor(clRed);
textout(150,c,'Программа завершена!')
end.
                        