Доделать курсач по информатике

Program Graf;{Пример построения графика и рисунка}
Uses crt,GraphABC;
Var
  T,Fi,H,H1,V,V1,A,Ho,Te,W,dt,Hm,dH,Ht,Vm,M,My,F:double;
  I,XX,XX1,SS,SS1,WW,WW1,UU,UU1:Integer;
 
Procedure GRAPHIC; {построение графика}
Var
  TT,POZ1,SPD1,ACC1:double;
Begin
  TT:=(20+T*50); XX1:=ROUND(TT);
  POZ1:=(280-H*5); SS1:=ROUND(POZ1); pen.Color:=clwhite; Line(XX1,SS1,XX,SS);
  SPD1:=(180-V*10); WW1:=ROUND(SPD1); pen.Color:=clred; Line(XX1,WW1,XX,WW);
  ACC1:=(180-{A}F*5); UU1:=ROUND(ACC1); pen.Color:=cllime;Line(XX1,UU1,XX,UU);
  XX:=XX1;SS:=SS1;WW:=WW1;UU:=UU1;
End;
 
procedure RedrawMech; {рисование механизма}
Begin
    pen.Color:=clblack;  {закрашиваем}
    rectangle(250,350,450,500);
    
    pen.Color:=cllime; {рисуем}
    Line(250,400,350,Round(400+H*3));
    Line(350,Round(400+H*3),450,400);
    pen.Color:=clyellow;     {рисуем}
    Circle(350,Round(390+H*3),10);
End;
procedure Step1(Aa:double;Myy:double;Alfa:double);{Расчет на все участки только для движения "вперёд", проверить силу!}
begin
V:=V+Aa*dT;{расчетная скорость}
H:=H+V*dT+Aa*dT*dT/2;{расчетное перемещение}
F:=M*Aa+M*9.8*Sin(Alfa)+Myy*M*9.8*Cos(Alfa);{расчетная сила}
end;
 
Begin
  Fi:=0;{угол наглона плоскости}
  M:=1; {масса тела по заданию}
  My:=0.1;{коэффициент трения по заданию}
  A:=10; {ускорение по заданию в КР}
  dT:=0.01; {шаг приращения по времени, по вашему выбору}
  Vm:=10; {максимальная скорость по заданию в КР}
  Hm:=25; {максимальный путь по заданию в КР}
  Ht:=Vm*Vm/2/A; {вычисленный тормозной путь}
  
  {Ho:=1;Te:=1;W:=10;}
  XX:=20;
  XX1:=20;WW1:=180;UU1:=180;SS1:=280;
  brush.Color:=clblack;
  rectangle(0,0,640,480);
 
      {Рисование осей координат}
       pen.Color:=clgray;
       Line(20,0,20,400);line(0,180,1000,180);line(0,280,1000,280);
       
      {Сюда операторы задачи}
For I:=1 to 1000 do
 Begin
  T:=dT*I;
    dH:=Hm-H; {оставшийся путь}
    If (V<Vm)and(dH>Ht) then Step1(A,My,Fi) Else
      If dH>Ht then Step1(0,My,Fi) Else 
        If V>0 then Step1(-A,My,Fi) Else 
                                      Begin
                                      V:=0;F:=0;
                                      End;
  
  GRAPHIC;
  RedrawMech;
  Delay(20);
  H1:=H;V1:=V;
 End;
End.