Тема: Разработка алгоритмов и программ с использованием процедур и функций модуля Graph

uses graphABC,crt;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
r:=15;
textout(windowwidth div 2-80,0,'Управление стрелками');
textout(windowwidth div 2-50,20,'Выход - Esc');
setpenwidth(3);
setpencolor(clRed);
circle(x,y,r);
lockdrawing;
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление стрелками');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if y>windowheight-2*r then d:=0
       else d:=10;
       y:=y+d;
       circle(x,y,r);
       delay(100);
       redraw;
      end;
  #72:begin
       clearwindow ;
       textout(windowwidth div 2-80,0,'Управление стрелками');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if y<2*r+40 then d:=0
       else d:=10;
       y:=y-d;
       circle(x,y,r);
       delay(100);
       redraw
      end;
  #75:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление стрелками');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if x>windowwidth-2*r then d:=0
       else d:=10;
       x:=x+d;
       circle(x,y,r);
       delay(100);
       redraw;
      end;
  #77:begin
       clearwindow;
       textout(windowwidth div 2-80,0,'Управление стрелками');
       textout(windowwidth div 2-50,20,'Выход - Esc');
       if x<2*r then d:=0
       else d:=10;
       x:=x-d;
       circle(x,y,r);
       delay(100);
       redraw;
      end;
  #27:exit;
  end;
 end;
until k=#27;
end.