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

//PascalABC.NET 3.1 сборка 1200uses GraphABC;const    w = 30;    delay = 12;begin    var k := Window.Width / Window.Height;    Brush.Color := clForestGreen;        for var i := 0 to Window.Height do     begin        var p := new System.Drawing.Point(round(k * i), i);        FillRectangle(p.X, p.Y, p.X + w, p.Y + w);        Sleep(delay);        Window.Clear(clYellowGreen);    end;        for var i := 0 to Window.Height do     begin        var p := new System.Drawing.Point(Window.Width - round(k * i), i);        FillRectangle(p.X - w, p.Y, p.X, p.Y + w);        Sleep(delay);        Window.Clear(clYellowGreen);    end;end.