Создать анимацию картинки (bmp) в pascal abc

Uses GraphABC;  procedure square( g: integer);  begin    line(100+g,100+g,100+g,200+g);   line(100+g,100+g,200+g,100+g);   line(200+g,100+g,200+g,200+g);   line(100+g,200+g,200+g,200+g);     end;  begin
 for var i:= 1 to 200 do   begin    window.clear;    square(i);    sleep(100);   end;    end.