Равноускоренное движение

uses GraphAbc;
const n=10;//количество засечек по времени
      d=20;
      m=1+250 div n;
var
  alpha,v,a:real;
  l,x,y:array[1..n] of real;
  t,h,k,w:integer;
begin
  SetWindowHeight(480);
  SetWindowWidth(640);
  w:=TextWidth('W')*20; //отступ рисунка от текста
  write('Введите угол наклона(градусы):');
  readln(alpha);
  alpha:=pi*alpha/180;//перевод градусов в радианы
  writeln;
  a:=7*sin(alpha)/2;//линейное ускорение шара вообще a=5/7*g*sin(alpha), но 5*9.8/7=7 
  writeln('линейное ускорение =',a:0:2,' м/c^2');
  writeln('t(с)':4,' : ','S(м)':5,' : ','V(м/с)':5);
  for t:=1 to n do begin //5 засечек по времени печатаем таблицу
    l[t]:=a*t*t/14;//пройденный путь за время t
    x[t]:=m*l[t]*cos(alpha);
    y[t]:=m*l[t]*sin(alpha);
    circle(w+round(x[t]),d+round(y[t]),5);
    v:=2*a*l[t];//скорость на каждом участке
    writeln(t:4,' : ',l[t]:5:2,' : ',v:5:2);
  end;
  k:=(WindowWidth-w-d) div n; 
  k:=round(m*l[n]*cos(alpha));  
  h:=round(m*l[n]*sin(alpha)); 
  Line(w,d,w,d+h);
  Line(w,d+h,w+k,d+h);TextOut(w,TextHeight('W')+h+d,'0');
  Line(w,d,w+k,d+h);TextOut(w+k,TextHeight('W')+h+d,n);
  TextOut(w+ k div 2,TextHeight('W')+h+d,'t');
  for t:=1 to n do line(w+round(x[t]),d+round(y[t]),w+round(x[t]),d+h);
end.

uses GraphAbc;
const n=10;//количество засечек по времени
      d=20;//отступ рисунка от верхнего края
      m=1+250 div n; //коэффициент масштабирования
var //объявление переменных
  alpha,v,a:real;
  l,x,y:array[0..n] of real;
  t,h,k,w:integer;
begin
  SetWindowHeight(480); // высота графического окна 480 точек
  SetWindowWidth(640);  // ширина - 640
  w:=TextWidth('W')*20; //отступ рисунка от текста
  write('Введите угол наклона(градусы):');readln(alpha);writeln(alpha);//   ввод значения и вывод его в графическое окно
  alpha:=pi*alpha/180;//перевод градусов в радианы
  a:=7*sin(alpha)/2;//линейное ускорение шара вообще a=5/7*g*sin(alpha), но 5*9.8/7=7 
  writeln('линейное ускорение =',a:0:2,' м/c^2'); 
  writeln('t(с)':4,' : ','S(м)':5,' : ','V(м/с)':5);
  for t:=0 to n do begin //n засечек по времени печатаем таблицу
    l[t]:=a*t*t/14;//пройденный путь за время t
    x[t]:=m*l[t]*cos(alpha);//положение шара в момент t по координате x
    y[t]:=m*l[t]*sin(alpha);// по координате y
    v:=2*a*l[t];//скорость на каждом участке
    writeln(t:4,' : ',l[t]:5:2,' : ',v:5:2); // печатаем результат - время, путь, скорость
  end;
  k:=round(m*l[n]*cos(alpha)); //длина, (l[n]-гипотенуза - пройденный путь от момента начала движения (t=0), до конца замера (момент сремени t=n)  
  h:=round(m*l[n]*sin(alpha)); //высота треугольника 
  SetPenColor(clgreen); // цвет пера зеленый
  Line(w,d,w,d+h);Line(w,d+h,w+k,d+h);Line(w,d,w+k,d+h);//рисуем треугольник  
  TextOut(w,TextHeight('W')+h+d,'0');TextOut(w+k,TextHeight('W')+h+d,n); //подписываем под осью момент времени
  TextOut(w+ k div 2,TextHeight('W')+h+d,'t'); //это само название оси
  for t:=0 to n do begin //рисуем шар в каждый момент времени
    SetPenColor(clBlue);//синий шар
    circle(w+round(x[t])+3,d+round(y[t])-5,5); // рисуем круг в точке x,y радиусом 5 пикселей
    Setpencolor(clRed); //цвет пера красный  
    line(w+round(x[t]),d+round(y[t]),w+round(x[t]),d+h); //опускаем засечки по времени на временную ось
    //подписываем моменты времени
    SetFontSize(8);//высота текста 8
    SetFontColor(clMagenta); // цвет - фиолетовый
    TextOut(w+round(x[t]),d+h+1,t);
  end;  
end.

uses GraphAbc;
const d=20;//отступ рисунка от верхнего края
  
var //объявление переменных
  alpha,v,a,l:real;
  x,y:array of real;
  t,h,k,w,i,m,n:integer;
begin
  Window.Maximize;
  repeat   
    Window.Clear;
    SetFontSize(10);
    SetFontColor(clBlack);
    w:=TextWidth('W'); //отступ рисунка от текста
    TextOut(1,w,'Введите угол наклона(градусы):');readln(alpha);
    TextOut(1,2*w,'Введите временя спуска(секунды)(0-выход):');readln(n);      
    if n>0 then begin
      SetFontSize(8);
      Window.Clear;
      TextOut(1,w,'Угол наклона:'+FloatToStr(alpha)+' град.');
      TextOut(1,2*w,'Время спуска:'+IntToStr(n)+' c');      
   SetLength(x,n+1);SetLength(y,n+1);//установка размеров массивов
   m:=1+250 div n; //коэффициент масштабирования
  alpha:=pi*alpha/180;//перевод градусов в радианы
  a:=7*sin(alpha)/2;//линейное ускорение шара вообще a=5/7*g*sin(alpha), но 5*9.8/7=7 
  TextOut(1,3*w,format('линейное ускорение ={0:N2} м/с^2',a)); 
  TextOut(1,4*w,format('{0,10}{1,10}{2,10}','t(с)','S(м)','V(м/с)'));
  for t:=0 to n do begin //5 засечек по времени печатаем таблицу
    l:=a*t*t/14;//пройденный путь за время t
    x[t]:=m*l*cos(alpha);//положение шара в момент t по координате x
    y[t]:=m*l*sin(alpha);// по координате y
    v:=2*a*l;//скорость на каждом участке
    TextOut(1,(t+5)*w,format('{0,10:N2}{1,10:N2}{2,10:N2}',t,l,v)); // печатаем результат - время, путь, скорость
  end;
  w:=w*20;
  k:=round(m*l*cos(alpha)); //длина, (l[n]-гипотенуза - пройденный путь от момента начала движения (t=0), до конца замера (момент сремени t=n)  
  h:=round(m*l*sin(alpha)); //высота треугольника 
  SetPenColor(clgreen); // цвет пера зеленый
  Line(w,d,w,d+h);Line(w,d+h,w+k,d+h);Line(w,d,w+k,d+h);//рисуем треугольник  
  TextOut(w,TextHeight('W')+h+d,'0');TextOut(w+k,TextHeight('W')+h+d,n); //подписываем под осью момент времени
  TextOut(w+ k div 2,TextHeight('W')+h+d,'t'); //это само название оси
  for t:=0 to n do begin //рисуем шар в каждый момент времени
    if t>0 then for i:=1 to 10 do begin
      SetPenColor(clBlue);
      circle(w+round(x[t-1])+3,d+round(y[t-1])-5,5); // рисуем круг в точке x,y радиусом 5 пикселей
      SetPenColor(clBrown);      
      circle(w+round(x[t-1]+i*abs(x[t]-x[t-1])/10)+3,d+round(y[t-1]+i*abs(y[t]-y[t-1])/10-5),4);
      Sleep(100);
      SetPenColor(clWhite);
      circle(w+round(x[t-1]+i*abs(x[t]-x[t-1])/10)+3,d+round(y[t-1]+i*abs(y[t]-y[t-1])/10-5),5);      
    end;
    SetPenColor(clBlue);
    circle(w+round(x[t])+3,d+round(y[t])-5,5); // рисуем круг в точке x,y радиусом 5 пикселей
    Setpencolor(clRed); //цвет пера красный  
    line(w+round(x[t]),d+round(y[t]),w+round(x[t]),d+h); //опускаем засечки по времени на временную ось
    //подписываем моменты времени
    SetFontSize(8);//высота текста 8
    SetFontColor(clMagenta); // цвет - фиолетовый
    TextOut(w+round(x[t]),d+h+1,t);
  end;  
  TextOut(1,WindowHeight-50,'Нажмите <Enter> для продолжения...');
  readln;
  end;
  until n=0;
  Window.Close;
end.

TextOut(w+k,TextHeight('W')+h+d,inttostr(n));
TextOut(w+round(x[t]),d+h+1,inttostr(t));