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

//Pascal ABC.NET 3.1 сборка 1219

uses
 GraphABC;

Var
 i:integer;
begin
for i:=100 to 150 do
 begin
  clearwindow;
  rectangle(i,i,i-30,i-30);
  sleep(100);
 end;
end.