Динамика движения шарика по заданной траектории

uses crt,graphABC;
//рисование траектории
procedure Grafik(x1,y1,x2,y2,x3,y3:integer);
var x,y:real;
begin
setpencolor(clBlack);
line(x1,y3,x2,y3);
line(x3,y1,x3,y2);
line(x1,y1,x3,y3);
line(x3,y3,x2,y1);
end;
//рисование шарика
procedure Sharik(x,y,c:integer);
begin
setpencolor(c);
circle(x,y,10);
floodfill(x,y,c);
end;
var x1,y1,x2,y2,x3,y3,xt,yt:integer;
    x,y,mx,my:real;
begin
setwindowsize(600,600);
x1:=50;
y1:=50;
x2:=windowwidth-x1;
y2:=windowheight-50;
x3:=windowwidth div 2;
y3:=windowheight div 2;
Grafik(x1,y1,x2,y2,x3,y3);//рисуем график
xt:=x1;//координаты шарика
yt:=y1;
repeat
 lockdrawing;
 ClearWindow;
 xt:=xt+5;//новые координаты шарика
 if xt<x3+5 then yt:=yt+5
 else yt:=yt-5;
 Grafik(x1,y1,x2,y2,x3,y3);//рисуем график
 Sharik(xt,yt,clRed); //и шарик
 redraw;
 sleep(30);
until xt>x2;//конец
end.