Движение объектов: падая, объект набирает скорость - Pascal ABC

Формулировка задачи:

Помогиииите!!! срочно нужно!! помогите сделать падающую фигуру (скажем, круг), который набирает скорость, падая, в Паскале или Delphi. Ну очень надо!

Решение задачи: «Движение объектов: падая, объект набирает скорость»

Листинг программы

uses graphABC;
var x,y,z:integer;
begin
x:=windowwidth div 2;
y:=20;
z:=1;
lockdrawing;
repeat
clearwindow;
setbrushcolor(clRed);
circle(x,y,20);
sleep(100);
z:=z+2;
y:=y+z;
redraw;
until y>windowheight+20;
unlockdrawing;
setfontsize(12);
setbrushstyle(bsClear);
textout(x-50,20,'Упал однако...')
end.

Объяснение кода листинга программы

В первой строке используются библиотеки graphABC и windowwidth, которые являются стандартными для языка Pascal ABC.
Далее объявляются три переменные типа integer: x, y и z. Значение переменной x устанавливается равным половине ширины окна, значение переменной y устанавливается равным 20, а значение переменной z устанавливается равным 1.
Затем включается блокировка рисования (lockdrawing), чтобы предотвратить изменение окна во время выполнения программы.
Программа входит в цикл repeat, который будет выполняться до тех пор, пока значение переменной y не превысит высоту окна плюс 20.
Внутри цикла повторяется команда clearwindow, которая очищает окно, и устанавливается цвет кисти на красный (clRed).
Затем рисуется круг с радиусом 20, центр которого находится по координатам x, y.
После этого выполняется команда sleep(100), которая приостанавливает выполнение программы на 1 секунду.
Значение переменной z увеличивается на 2, а значение переменной y увеличивается на значение переменной z.
После завершения цикла повторяется команда redraw, которая обновляет окно с новыми значениями переменных x, y и z.
По завершении цикла повторя unlockdrawing, чтобы разрешить изменение окна.
Затем устанавливается размер шрифта 12 и стиль кисти clear.
Выводится текст Упал однако... с помощью команды textout, которая выравнивается по левому краю окна с координатами x-50, y.