Помогите, пожалуйста, с Паскалем.
Нужно написать программу, которая моделирует движение белого шарика радиусом 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.