Всё правильно но неработает (free pascal)

[zhenka619]

Вот код , модератор Serge_Bliznykov сказал что у него всё работает( надо чтобы прямоугольник перемещался ), но у меня он не двигается, может проблема в компиляторе , хотя я его с офф. сайта сегодня установил, прошу помочь.

    Program graphika1;
    uses crt, graph;
    var gd, gm, ax, ay, bx, by, z :integer;
    color: byte;
    ch : char;
    begin
    ax:=200;
    ay:=200;
    bx:=400;
    by:=400;
    clrscr;
    gd:=detect;
    initgraph (gd,gm,' ');
    repeat
    cleardevice;
    clrscr;
    rectangle(bx,by,ax,ay);
    if keypressed then begin
    ch:=readkey;
    case ch of
    's':begin ay:=ay+30;
              by:=by+30;
              end;
   'w':begin ay:=ay-30;
             by:=by-30;
             end;
   'a':begin ax:=ax-30;
             bx:=bx-30;
             end;
   'd':begin ax:=ax+30;
             bx:=bx+30;
             end;
   end;
   end;
   delay(100);

   until ch=#27
  end.

[Mad_Cat]

может проблема в раскладке?