Free Pascal

[GreenDay]

Здраствуйте.
Хотелось бы узнать, почему линия не двигается?

program trah_tibidoh;
uses wincrt,graph;
var c:char;
    grD,grM:integer;
    xmax,ymax:integer;
begin
  grD:=detect;
  Initgraph(grD,grM,'');
  xmax:=getmaxX div 2;
  ymax:=getmaxY div 2;
  setcolor(3);
  line (xmax,ymax,xmax+10,ymax);
  if keypressed then
    begin
      c:=readkey;
        case c of
          #72: begin      {‚ўҐае}
                 {setcolor(0);}
                 line(xmax,ymax,xmax+10,ymax);
                 setcolor(3);
                 line(xmax,ymax,xmax+10,ymax);
                 ymax:=ymax+10;
                 end;
          #80: begin
                 setcolor(0);
                 line(xmax,ymax,xmax+10,ymax);
                 setcolor(3);
                 line(xmax,ymax,xmax+10,ymax);
                 ymax:=ymax-10;
               end;
        end;
   end;
   readln;
end.

вопрос закрыт...