Движение шарика по заданной траектории - Pascal ABC (12813)

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

Доброго времени суток.Встретился с такой проблемой,написание графической программы.Ниразу с такой не сталкивался.Можете помочь написать??

Решение задачи: «Движение шарика по заданной траектории»

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

                            uses graphABC;
var x1,x2,x3,y1,y2,y3:integer;
procedure trk;
begin
setpencolor(clBlack);
moveto(x2,y2);
lineto(x3,y1);
lineto(x3,y3);
lineto(x1,y3);
lineto(x1,y2);
lineto(x2,y1);
end;
procedure shar(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
var x,y,r:integer;
begin
setwindowsize(400,400);
r:=10;
x1:=2*r;
x2:=200;
x3:=400-2*r;
y1:=2*r;
y2:=200;
y3:=400-2*r;
x:=x2;
y:=y2;
lockdrawing;
while y>y1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x+1;
  y:=y-1;
  redraw;
 end;
while y<y3 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  //x:=x+1;
  y:=y+1;
  redraw;
 end;
while x>x1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x-1;
  //y:=y-1;
  redraw;
 end;
while y>y2 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  //x:=x+1;
  y:=y-1;
  redraw;
 end;
while y>y1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x+1;
  y:=y-1;
  redraw;
 end;
end.
                        