Pascal/Turbo Pascal - como hacer para mover algo con la libreria graph en pascal

PROGRAM GALAXY;

USES CRT,GRAPH;

VAR

modo,driver:integer;

X,Y:WORD;

mov:char;

begin

	Driver := VGA;

	Modo := VGAHi;

	InitGraph(Driver, Modo, 'C:FPC');

	X:=325;Y:=380;

	rectangle(630,400,10,50); {cuadro del juego}

	repeat

	outtextxy(X,Y,'O');

	mov:=readkey;

	if (x>0) and (x<620) then

  if (mov='M') then

		x:=x+50;

		outtextxy(X,Y,'O');

		clrscr;

IF (X>1)

then

if (mov='K')

	then

		x:=x-50;

		outtextxy(X,Y,'O');

		clrscr;

until(mov='s');

end.

{Si estas usando free pascal 2.6 mira esto es el cambio que tienes que realizar}

program linea;

 uses

    wincrt, graph;

  var

    drive, modo : integer;

    move : char;

    x, y : integer;

  begin

      drive := detect;

      initgraph(drive, modo,'c:\tp\bgi'); {ponlo a tu direccion}

      if graphresult <> 0 then

      halt(1)

   else

      begin

         x := 10;  {posicion de la linea en x}

         y := getmaxy - 20; {posicion de la linea en y}

         setcolor(15);

         line(x,y,x + 10,y); {dibujamos linea}

     repeat

        move := readkey;

        setcolor(0);       {borramos linea}

        line(x,y,x + 10,y);

      if move = #75 then

      begin

          x := x - 10; {para mas rapido incrementa y decrementa x en o mas: 10}

          if x < 10 then

          x := 10;

      end;

      if move = #77 then

      begin

          x := x + 10;

          if x > getmaxx - 15 then

          x := getmaxx - 15;

      end;

         setcolor(15);    {dibujamos en nueva posicion}

         line(x,y,x + 10,y);

     until move = #27;  {tecla [esc] termina}

     closegraph;

    end;

  end.