Нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)

PascalABC.NET 3.2

uses
GraphABC;
begin
var w:=Window.Width;
var h:=Window.Height;
var x0:=w div 2 -1;
var y0:=h div 2 -1;
SetCoordinateOrigin(x0,y0);
var k:=h/w;
for var x:=0 downto -x0 do begin
    var y:=Trunc(k*x);
    Brush.Color:=clRed;
    Pen.Color:=clRed;
    Circle(x,y,10);
    sleep(50);
    Brush.Color:=clWhite;
    Pen.Color:=clWhite;
    Circle(x,y,15)
    end;
end.