Рисование свободного падения шара

uses GraphABC;
 
var
 
// Описание тела
 
object_position_x : real;
object_position_y : real;
 
object_velocity_x : real;
object_velocity_y : real;
 
object_mass : real;
 
var
 
// Описание среды
 
environment_g : real;
 
var
 
// Настройки симуляции
 
dt : real;
 
// Симуляция воздействия силы тяжести
procedure renderVelocity();
begin
  object_velocity_x := object_velocity_x + 0;
  object_velocity_y := object_velocity_y + environment_g / dt;
end;
 
// Симуляция движения в пространстве
procedure renderPosition();
begin
  object_position_x := object_position_x + object_velocity_x / dt;
  object_position_y := object_position_y + object_velocity_y / dt;
end;
 
// Симуляция физицеского процесса
procedure renderPhysics();
begin
  renderVelocity();
  renderPosition();
end;
 
// Инициализация модели
procedure initModel();
begin
  // Гравитационная постоянная
  environment_g := -9.8;
  
  // Начальное положение (метры)
  object_position_x := -30;
  object_position_y := 50;
  
  // Начальная скорость (м/сек)
  object_velocity_x := 7;
  object_velocity_y := 15;
  
  // Масса тела (г)
  object_mass := 1000;
  
  // делитель
  dt := 20;
end;
 
// Инициализаця графики
procedure initGraphics();
begin
  Coordinate.SetMathematic();
  Coordinate.SetOrigin(300, 400);
  
  LockDrawing();
  
  clearwindow(clBlack);
  redraw();
end;
 
// Рисование мира
procedure renderGraphics();
begin
  var scale : real := 5;
 
  // Очищаем экран
  clearwindow(clSkyBlue);
  
  // Рисуем окружночть
  SetBrushColor(clRed); 
  fillCircle(round(object_position_x * scale), round(object_position_y * scale), 30);
  
  // Рисуем землю
  SetBrushColor(clGreen);
  FillRectangle(-1000, 0, 1000, -1000);
  
  redraw();
  // Создаем задержку между кадрами
  sleep(10);
end;
 
// Условие остановки симуляции
function checkStopRendering() : boolean;
begin
  result := (object_position_y < 7.5);
end;
 
// Основная процедура
begin
  // Инициализируем модель
  initModel();
  
  initGraphics();
  
  // Бессконечный цикл. Условие остановки мы определим сами
  while true do
  begin
    renderPhysics();
    renderGraphics();
    
    // Проверяем условие остановки
    if checkStopRendering() then break;
  end;
end.

uses GraphABC;
const g=9.81;
var x,y,r,z:integer;
    t:real;
begin
setwindowsize(300,700);
centerwindow;
x:=windowwidth div 2;    
r:=10;
y:=r;
z:=windowheight-50;
lockdrawing;
t:=0;
repeat
clearwindow;
// Рисуем землю
SetBrushColor(clGreen);
FillRectangle(0,z,windowwidth,z+50);
SetBrushColor(clRed);
FillCircle(x,y,r); 
sleep(10); 
t:=t+0.03;  
y:=y+round(g*t*t/2);
redraw;
until y-r>=z;
end.