Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).

//PascalABC.NET 3.1 сборка 1239 uses GraphABC; const side = 15; var i: integer; begin Window.Init(0, 0, 200, 200, clLightBlue); Window.CenterOnScreen(); SetBrushColor(clBlue); for i := 100 to 150 do begin ClearWindow(clLightBlue); Rectangle(i - side, i - side, i + side, i + side); Sleep(50); end; end.