Смоделируйте действие на частицы постоянной силы тяжести

uses GraphABC;
 
type object1=record
  x,y,        //Координаты
  vy:real  //Скорость
end;
 
var objs:array[1..10] of object1; //частицы
    i: integer;
 
procedure tick;
begin
    for i:=1 to 10 do
    begin
         objs[i].vy := objs[i].vy + 9.8/60;     //прибавление к скорости силы тяжести
         objs[i].y := objs[i].y + objs[i].vy/60;//перемещение частицы
         if(objs[i].y+10>windowheight) then     //отталкивание если обьект за пределами экрана
         begin
             objs[i].y := windowheight+(objs[i].y-0.1-windowheight);//сдвиг частицы в область экрана
             objs[i].vy := -objs[i].vy/1.2;     //изменение вектора скорости в обратную сторону с компенсацией
         end;
         circle(round(objs[i].x), round(objs[i].y), 10);//отрисовка
    end;
end;
 
begin
     lockdrawing;
     for i:=1 to 10 do
     begin
     objs[i].x := random(windowwidth);//рандомная позиция
     objs[i].y := random(windowheight);//рандомная позиция
     end;
     while true do
     begin
     clearwindow;
     tick;
     redraw;
     end;
end.