Движение надписи нажатием клавиш

Program graf;
uses crt;
 
label start; label conec;
var n,i: integer; x,y:real; k:char; Sym: Char
begin
     clrscr;
     start:
     if keypressed then
     case readkey of
 
           begin
          k:=readkey;
 
          if (k=#77) then x:=x+1;
 
 
     gotoxy (x,y);
     write ('nikotan');
         end;
     Sym:= readkey;
     if Sym = 'q' then goto conec;
     goto start;
     conec:
end.

repeat
...
key:=readkey;
until key='q';

..
repeat
    repeat
    {Тутможно что-нитьделать пока не нажата кнопка}
    until keypressed;
    key:=readkey;
    case key of
     'a': begin {тут еще че-нить} end;
     'b': begin {тут еще че-нить} end;
     'c': begin {тут еще че-нить} end;
      else begin {ничего не совпало} end;
    end;
until key='q';
end.

Repeat
  Ch:=GetChar
 Until Ch<>' ';
 
 Repeat
  Write('Введите значение : ');
  ReadLn(I);
 Until (I>=0) And (I<=9);

Program graf;
uses crt,Graph;
 
var n,i: integer; gd,gm,x,y:integer; key:char;
begin
     gd:=detect;
     initgraph(gd,gm,'');
     x:=GraphResult;
     if x<>0 then begin
      writeln(grapherrormsg(x));
      halt;
     end;
     x:=0;
     y:=x;
     randomize;
repeat
        repeat
          ClearViewPort;
           setColor(random(20));
           outtextXY(x,y,'bla-bla');
           delay(1000);        
        until keypressed;
        key:=readkey;
        case uppercase(key) of
         'W': begin if(x>=getmaxx) then x:=0 else inc(x); end;
         'S': begin if(y>=getmaxy) then y:=0 else inc(y); end;
        end;
until key='q';
closeGraph;
end.

ClearViewPort;
           setColor(random(GetMaxColor));
           outtextXY(x,y,'bla-bla');
           delay(1000);

           ClearViewPort;
           setColor(random(GetMaxColor));
           outtextXY(x,y,'bla-bla');
           if keypressed then break;
           delay(500);