Построение на экране

[Ximer]

Помогите пожалуйста с задачкой.
Составить программу для построения на экране квадрата.Предусмотреть движение квадрата в четыре стороны по нажатию клавиш A W S D. Выход из программы осуществляется при нажатии клавиши Esc.

[capta1n]

program square;
uses graph,crt;
const
l = 50;
var
 gd,gm : integer;
 x1,x2,y1,y2 : integer;
 ch : char;
 buf : integer;
 b : pointer;
begin
  gd:=detect;
  initgraph(gd,gm,'egavga.bgi');
  x1:=round(getmaxx/2)-l;
  y1:=round(getmaxy/2)-l;
  x2:=round(getmaxx/2)+l;
  y2:=round(getmaxy/2)+l;
  bar(x1,y1,x2,y2);
  buf:=imagesize(x1,y1,x2,y2);
  getmem (b,buf);
  getimage(x1,y1,x2,y2,b^);
  ch:='0';
  while ch<>#27 do
  begin
    ch:=readkey;
    case ch of
    'a' : begin
            cleardevice;
            dec(x1);
            putimage(x1,y1,b^,0);
          end;
    'w' : begin
            cleardevice;
            dec(y1);
            putimage(x1,y1,b^,0);
          end;
    's' : begin
            cleardevice;
            inc(y1);
            putimage(x1,y1,b^,0);
          end;
    'd' : begin
            cleardevice;
            inc(x1);
            putimage(x1,y1,b^,0);
          end;
    end
  end
end.