Помогите, пожалуйста, с Паскалем. Нужно написать программу, которая моделирует движение белого шарика радиусом 10 точек по прямой из левого нижнего угла экрана в правый верхний угол.

uses     GraphABC; const     steps = 40; var     start, stop: Point;     i, x, y: integer; begin     start := new Point(0, WindowHeight);     stop := new Point(WindowWidth, 0);     Brush.Color := clWhite;     Pen.Color := clBlack;         for i := 1 to steps do     begin         x := round(start.X + i * (stop.X - start.X) / steps);         y := round(start.Y + i * (stop.Y - start.Y) / steps);         Circle(x, y, 10);         sleep(50);         ClearWindow();     end;     end.