Моделирование равномерного и ускоренного движения в реальном времени

Program Speedway;
//Автомобиль движется по кнопке: >, ускоренно: ^  возврат: <
uses graphABC;
//uses crt;
uses Timers; 
var x0,v0,v,s,tr:integer;
    a0,a,t:real;
    b:boolean;
procedure TimerProc; //Счетчик времени
begin
  if b then tr:=tr+1;  
end;
 var tn := new Timer(1,TimerProc);  //Таймер     
//процедура рисования фона
procedure Fon;
begin
clearwindow(clskyblue);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,420,1500,600);
//дорога
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,450,1500,550);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(800,100,50);
end;
//процедура рисования колес
procedure Koleso(xk1,yk1,xk2,yk2,uu: integer);
var r,i:integer;
    u:real;
begin
r:=15;u:=uu;
setbrushcolor(clblack);
setpencolor(clblack);
circle(xk1,yk1,r+10);
circle(xk2,yk2,r+10);
setbrushcolor(clwhite);
circle(xk1,yk1,r);
circle(xk2,yk2,r);
for i:=1 to 4 do
    begin
    line(xk1,yk1,xk1+round(r*cos(u)),yk1-round(r*sin(u)));
    line(xk2,yk2,xk2+round(r*cos(u)),yk2-round(r*sin(u)));
    u:=u+(pi/2);
    end;
end; 
//процедура рисования автомобиля
procedure Automobil(x: integer);
var uu: integer;
begin 
    uu:=-(x mod 100);
    setpenwidth(3);
    setpencolor(clred);
    setbrushcolor(clred);
    ellipse(x-100,350,x+100,450);
    setbrushcolor(clwhite);
    ellipse(x-90,360,x+90,440);
    setpencolor(clred);
    setbrushcolor(clred);
    rectangle(x-150,400,x+150,450);
    rectangle(x-10,355,x+10,450);
    Koleso(x-100,450,x+100,450,uu);
    redraw;
 end;
 procedure Speed(v: integer); //Спидометр
  var r:integer:=90;
    r1,r2,dx1,dy1,dx2,dy2:integer;
    u,c:real;
 begin 
 r1:=95; r2:=100;
 u:=(180-v)*pi/180;
 setpenwidth(1);
 setpencolor(clblack);
 setbrushcolor(clWhite);
 Pie(200,150,100,0,180);
 for i:integer:=1 to 17 do //Шкала скоростей
 Begin
 c:=10*i*pi/180;  
 dx1:=round(r1*cos(c));
 dx2:=round(r2*cos(c));
 dy1:=round(r1*sin(c));
 dy2:=round(r2*sin(c));
 line(200+dx1,150-dy1,200+dx2,150-dy2);
 end;
 textout(180,155,'км/час');
 if u>0 then 
 line(200,150,200+round(r*cos(u)),150-round(r*sin(u))); 
 end;
 procedure Movement;
 begin 
     b:=true;
     tn.Start;
     t:=tr/50;       
     v:=round(v0+a*t);
     s:=round(v0*t+a*t*t/2); //формула равноускоренного движения
     x0:=x0+s;  //приращение пути
 end;
 procedure KeyDown(Key: integer);//обработка нажатия клавиш
 begin  
  b:=false;
  case Key of
       VK_Up: if x0<WindowWidth-180 then //Давим на акселератор
       Begin 
       a:=a+5;       
       Movement;
       end;
       VK_Right: if x0<WindowWidth-180 then                
       Movement;      
       VK_Left:  //сброс
       Begin
       s:=0;
       v:=0;
       a:=a0;
       tr:=0;
       x0:=200;
       end;
  end;
  LockDrawing;
  clearwindow;
  Fon;
  Speed(v);
  Automobil(x0);
  UnLockDrawing;
 end; 
//основная программа
 begin 
 setwindowsize(1500,600); //размер окна
 setwindowLeft(200);
 x0:=200; //начальное значение позиции авто
 Writeln(' Введите начальную скорость v0 (1-50) '); 
 read(v0); 
 Write(' Введите ускорение a(0-2), если а=0 движение равномерное '); //
 read(a0); 
 Fon;
 Speed(v);
 Automobil(x0);
 OnKeyDown:=KeyDown;
 end.

for j:integer:=1 to 4 do