Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками - Pascal

Формулировка задачи:

Создайте программу вывода на экран компьютера рисунка кольца зелёного цвета, организуя его перемещение с помощью клавиш управления курсором. если не сложно пж помагите

Решение задачи: «Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками»

Листинг программы

program graphics;
uses crt,graph;
var
   x,y,r,Dr,Mo:integer;
   c:char;
  begin
  Dr:=9;
  Mo:=2;
  InitGraph(Dr,Mo,'BGI\');  
  x:=320;
  y:=240;
  r:=50; {радиус}
  SetColor(2);
  repeat
  Circle(x,y,r);
  c:=ReadKey;
  ClearDevice;
  if c=#75 then x:=x-10
     else
         if c=#77 then x:=x+10
           else
             if c=#80 then y:=y+10
                else
                  if c=#72 then y:=y-10;
  until c=#27; {будет работать пока не нажмешь ESC}
 
  end.

Объяснение кода листинга программы

Создается программа graphics с использованием библиотек crt и graph.
Объявляются переменные x, y, r, Dr, Mo:integer; и c:char.
Вызывается функция InitGraph(Dr,Mo,'BGI\'), где Dr и Mo - это параметры, а 'BGI\'' - это строка, представляющая графический дисплей.
Устанавливаются начальные координаты x, y и радиус r.
Устанавливается цвет фона (SetColor(2)).
Запускается цикл, в котором рисуется окружность (Circle(x,y,r)) и считывается символ клавиатуры (ReadKey).
Если нажата клавиша #75, то x уменьшается на 10.
Если нажата клавиша #77, то x увеличивается на 10.
Если нажата клавиша #80, то y увеличивается на 10.
Если нажата клавиша #72, то y уменьшается на 10.
Цикл продолжается до тех пор, пока не будет нажата клавиша #27, что соответствует выходу из программы.