Pascal/Turbo Pascal - Paleta en pascal. Libreria CRT URGENTE

program prueba;

uses crt;

var

   mov:char;

   x,y:word;

begin

x:=40;

y:=20;

repeat

gotoxy(x,y);

write('______');

mov:=readkey;

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

  if (mov='M') then

		x:=x+1;

		gotoxy(x,y);

		write('______');

		clrscr;

IF (X>1)

then

if (mov='K')

	then

		x:=x-1;

		gotoxy(x,y);

		write('______');

		clrscr;

until(mov='s');

end.

{El gotoxy no funciona en modo grafico pero si en modo texto mira esto}

 program linea;

 uses

    crt, graph;

  var

    drive, modo : integer;

    move : char;

    x, y : integer;

  begin

      drive := detect;

      initgraph(drive, modo,'c:\tp\bgi');

      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.