Изобразить, как одна точка догоняет другую

uses crt,graph;
var x1,y1,x2,y2:longint;
    tx,ty,x11,y11,x12,y12:integer;
    dx1,dy1,dx2,dy2:integer;
    r:real;
begin
initgraph(dx1,dy1,'');
x1:=50;y1:=50;
dx1:=3;
x2:=getmaxX div 2;y2:=getmaxY-100;
setcolor(9);
circle(x1,y1,3);
setfillstyle(1,9);
floodfill(x1,y1,9);
setcolor(10);
circle(x2,y2,3);
setfillstyle(1,10);
floodfill(x2,y2,10);
setcolor(11);
x11:=x1;
x12:=x2;y12:=y2;
repeat
r:=sqrt(sqr(x1-x2)+sqr(y1-y2));
if r>0 then
 begin
  dx2:=round((x1-x2)*5/r);
  dy2:=round((y1-y2)*5/r);
  x11:=x1+dx1;
  x12:=x12+dx2;y12:=y12+dy2;
  setcolor(9);
  line(x1,y1,x11,y1);
  x1:=x11;;
  setcolor(10);
  line(x2,y2,x12,y12);
  x2:=x12;y2:=y12;
  delay(100);
 end;
until r<=0;
{нарисуем место встречи}
setcolor(9);
circle(x1+6,y1,3);
setfillstyle(1,9);
floodfill(x1+6,y1,9);
setcolor(10);
circle(x2,y2,3);
setfillstyle(1,10);
floodfill(x2+1,y2,10);
readln
end.

uses crt,graph;
procedure tochka(x,y,c:integer;s:string);
begin
setcolor(c);
circle(x,y,2);
setfillstyle(1,c);
floodfill(x,y,c);
outtextXY(x,y-10,s);
end;
var x1,y1,x2,y2:longint;
    dx1,dy1,dx2,dy2:integer;
    r:real;
begin
initgraph(dx1,dy1,'');
x1:=50;y1:=50;
dx1:=3;
x2:=getmaxX div 2;y2:=getmaxY-100;
tochka(x1,y1,9,'1');
tochka(x2,y2,10,'2');
repeat
delay(100);
tochka(x1,y1,0,'1');
tochka(x2,y2,0,'2');
r:=sqrt(sqr(x1-x2)+sqr(y1-y2));
if r>0 then
 begin
  dx2:=round((x1-x2)*5/r);
  dy2:=round((y1-y2)*5/r);
  x1:=x1+dx1;
  x2:=x2+dx2;y2:=y2+dy2;
  tochka(x1,y1,9,'1');
  tochka(x2,y2,10,'2');
 end;
until r<=0;
{нарисуем место встречи}
cleardevice;
tochka(x1+6,y1,9,'1');
tochka(x2,y2,10,'2');
readln
end.

until (r<=0)or keypressed;