Круг появляется на экране, передвигается с помощью клавиш управления курсором

uses graphABC;
var xc,yc,x,y,r,d:integer;
    f:boolean;
procedure krug(x,y,r:integer);
begin
setpencolor(clRed);
if(x>=xc)and(y<=yc) then brush.Hatch:=bhCross
else if(x<=xc)and(y<=yc) then brush.Hatch:=bhBackwardDiagonal
else if(x<=xc)and(y>=yc) then brush.Hatch:=bhForwardDiagonal
else brush.Hatch:=bhPercent10;
brush.Color:=clRed;
circle(x,y,r);
end;    
procedure KeyDown(Key: integer);
begin
case Key of
VK_Left:begin
        clearwindow;
        setbrushstyle(bsClear);
        textout(xc-80,20,'Управление - стрелки');
        textout(xc-50,40,'Выход - Esc');
        if x<2*r then d:=0
        else d:=10;
        x:=x-d;
        brush.Style:=bsHatch;
        krug(x,y,r);
        sleep(100);
        redraw
        end;  
VK_Right:begin
         clearwindow;
         setbrushstyle(bsClear);
         textout(xc-80,20,'Управление - стрелки');
         textout(xc-50,40,'Выход - Esc');
         if x>windowwidth-2*r then d:=0
         else d:=10;
         x:=x+d;
         brush.Style:=bsHatch;
         krug(x,y,r);
         sleep(100);
         redraw
         end; 
VK_Up:begin
      clearwindow;
      setbrushstyle(bsClear);
      textout(xc-80,20,'Управление - стрелки');
      textout(xc-50,40,'Выход - Esc');
      if y<50+2*r then d:=0
      else d:=10;
      y:=y-d;
      brush.Style:=bsHatch;
      krug(x,y,r);
      sleep(100);
      redraw
      end;    
VK_Down:begin
        clearwindow;
        setbrushstyle(bsClear);
        textout(xc-80,20,'Управление - стрелки');
        textout(xc-50,40,'Выход - Esc');
        if y>windowwidth-2*r then d:=0
        else d:=10;
        y:=y+d;
        brush.Style:=bsHatch;
        krug(x,y,r);
        sleep(100);
        redraw;
        end;
VK_Return:f:=false
end;
end;
 
begin
f:=true;
xc:=windowwidth div 2;
yc:=windowheight div 2;
x:=xc;
y:=yc;
r:=20;
textout(xc-80,20,'Управление - стрелки');
textout(xc-50,40,'Выход - Esc');
brush.Style:=bsHatch;
krug(x,y,r);
lockdrawing;
repeat
OnKeyDown := KeyDown;
until f=false
end.

uses graphABC;
var s:string;
    n,k,w,p,i,j,c:integer;
begin
randomize;
repeat
write('Введите длину слова от 5 до 10 n=');
readln(n);
until n in [5..10];
repeat
write('Введите количество слов в строке от 4 до 8 k=');
readln(k);
until k in [4..8];
repeat
write('Введите слово длиной ',n,' символов:  ');
readln(s);
until length(s)=n;
clearwindow;
w:=(windowwidth-8*n*k) div (k-1);
i:=1;p:=1;
while i<=windowheight do
 begin
  if odd(p) then j:=1
  else j:=w;
  while j<=windowwidth do
   begin
    font.Color:=clrandom;
    textout(j,i,s);
    j:=j+8*n+w;
   end;
  i:=i+8*n;
  p:=p+1;
 end;
end.