Работа с графическим режимом

uses crt,graph;
type square=object
     x,y,color,angle:integer;
     procedure init(initx,inity,inita,initc:integer);
     procedure draw(da:byte);
     procedure move(newx,newy,newa:integer);
     end;
 
procedure square.init(initx,inity,inita,initc:integer);
begin
x:=initx;
y:=inity;
angle:=inita;
color:=initc;
end;
 
procedure square.draw(da:byte);
var a,b:arccoordstype;
begin
setcolor(getbkcolor);
arc(x,y,angle,angle+90,80);
getarccoords(a);
arc(x,y,angle+180,angle+270,80);
getarccoords(b);
if da=0 then setcolor(getbkcolor)
else setcolor(color);
line(a.xstart,a.ystart,a.xend,a.yend);
line(b.xstart,b.ystart,b.xend,b.yend);
line(a.xstart,a.ystart,b.xend,b.yend);
line(a.xend,a.yend,b.xstart,b.ystart);
end;
 
procedure square.move(newx,newy,newa:integer);
begin
draw(0);
x:=newx;
y:=newy;
angle:=newa;
draw(1);
end;
 
var gd,gm:integer;
    s:square;
    x,y,angle:integer;
begin
gd:=detect;
initgraph(gd,gm,'/BGI');
if graphresult <> 0 then
   begin
   write(grapherrormsg(graphresult));
   halt;
   end;
 
s.init(0,150,90,4);
 
angle:=0;x:=0;y:=150;
 
repeat
if x>getmaxx then begin
                  x:=0;
                  y:=150;
                  angle:=0;
                  end;
x:=x+2;
inc(angle,2);
y:=round(y+10*sin(x/20));
s.move(x,y,angle);
delay(1000);
until keypressed;
 
readkey;
 
end.

uses crt,graph;
var
  x1,y1,x2,y2,j,i,z,q:integer;
  device,mode:integer;
begin
  x1:=100; y1:=100;
  x2:=150; y2:=150;
  device:=0;
  initgraph(device,mode,' ');
  for z:=1 to 15 do begin
    for i:=1 to 50 do begin
      if (x2<400) or (x2>650) or (x2>900) then begin
        x1:=x1+1;
        y1:=y1+1;
        x2:=x2+1;
        y2:=y2+1;
      end else begin
         x1:=x1+1;
         y1:=y1-1;
         x2:=x2+1;
         y2:=y2-1;
       end;
      setcolor(15);
      rectangle(x1+i,y1,x2-i,y2);
      delay(25);
      setcolor(0);
      rectangle(x1+i,y1,x2-i,y2);
    end;
  end;
  readln;
  closegraph;
end.