Изобразить на экране три круга с их последующей закраской - Free Pascal

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

Помогите решыть задачку по графике Составить программу изображения на экране три круга. При нажатии клавиши <к> первый круг закрашивается красным цветом, при нажатии клавиши <ж> второй круг закрашивается желтым цветом, а при нажатии клавиши <з> третий круг закрашивается зеленым цветом. Буду очень благодарен

Решение задачи: «Изобразить на экране три круга с их последующей закраской»

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

uses WinGraph,WinCrt;
const r=40;
var
  gd,gm:integer;
  c:char;
begin
  gd:=Detect;
  InitGraph(gd,gm,'');
  Setcolor(White);
  repeat
    circle(GetMaxX div 2,GetMaxY div 2-r*2,r);
    circle(GetMaxX div 2,GetMaxY div 2,r);
    circle(GetMaxX div 2,GetMaxY div 2+r*2,r);
    c:=readkey;
    case Upcase(c) of
      'R':begin //красный
            SetFillStyle(SolidFill,Red);
            Floodfill(GetMaxX div 2,GetMaxY div 2-r*2,White);
          end;
      'Y':begin //желтый
            SetFillStyle(SolidFill,Yellow);
            Floodfill(GetMaxX div 2,GetMaxY div 2,White);
          end; 
      'G':begin //зеленый
            SetFillStyle(SolidFill,Green);
            Floodfill(GetMaxX div 2,GetMaxY div 2+r*2,White);
          end;
      end;
  until c=#27;
end.

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

Подключение необходимых модулей для работы с графикой и консолью.
Установка размера кругов и константы для радиуса.
Инициализация графического режима и установка цвета заливки на белый.
Повторяющийся блок кода, который рисует три круга на экране.
Блок чтения ключа с клавиатуры и приведение его к верхнему регистру.
Оператор switch для определения цвета заливки в зависимости от нажатой клавиши.
Завершение цикла и выход из программы при нажатии клавиши #27 (Escape).