Анимация на Паскале

[koss0501]

Помогите, пожалуйста. Ниже код программы. Как построить график изменения координаты от времени для тележки?

Program animaciya;
Uses crt,graph;
Var gd,gm,i:integer;
F,Ftr,x1,x2,v1,v2,a1,a2,xx1,xx2,t:r eal;
const m1=1; m2=1.2; dt=0.005; k=0.1; r=0.1;
begin
clrscr;
Detectgraph (gd,gm);
Initgraph (gd,gm,'');
line(220,0,220,480);
x1:=250;
v1:=-5;
x2:=250;
v2:=-5;
repeat
if x1<0 then F:=-k*x1 else F:=0;
Ftr:=r*abs(v2-v1);
a1:=(F-Ftr)/m1; v1:=v1+a1*dt; x1:=x1+v1*dt;
a2:=Ftr/m2; v2:=v2+a2*dt; x2:=x2+v2*dt;
setcolor(0);
rectangle(round(xx1)+220,240,round( xx1)+300,250);
circle(round(xx2)+290,230,3);
setcolor(4);
rectangle(round(x1)+220,240,round(x 1)+300,250);
circle(round(x2)+290,230,3);
xx1:=x1;
xx2:=x2;
until KeyPressed;
closegraph;
Readln;
end.