Построение квадрата и заполнение его некоторым цветом после нажатия на клавишу Enter - Free Pascal

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

Написать программу построения квадрата и заполнения его некоторым цветом после нажатия на клавишу Enter.

Решение задачи: «Построение квадрата и заполнение его некоторым цветом после нажатия на клавишу Enter»

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

uses graph,wincrt;
var x,y,a:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
a:=y-50;
setcolor(14);
rectangle(x-a,y-a,x+a,y+a);
outtextXY(x-50,10,'Press Enter');
if readkey=#13 then
 begin
  setfillstyle(1,14);
  bar(x-a,y-a,x+a,y+a);
 end;
readkey
end.

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

Подключение необходимых модулей для работы с графикой и консолью.
Объявление переменных x, y, a для хранения размеров окна и цвета.
Инициализация графического режима с помощью функции initgraph(x,y,'').
Установка размеров прямоугольника по центру окна с помощью переменных x и y.
Вычисление смещения для вертикальной оси прямоугольника с помощью переменной a.
Установка цвета заливки и обводки прямоугольника с помощью функции setcolor(14).
Отрисовка прямоугольника с помощью функции rectangle(x-a,y-a,x+a,y+a).
Вывод текста Press Enter в указанные координаты с помощью функции outtextXY(x-50,10,'Press Enter').
Проверка нажатия клавиши Enter с помощью переменной readkey и ее кодового значения #13.
Если Enter был нажат, то устанавливается стиль заливки и цвет с помощью функций setfillstyle(1,14) и bar(x-a,y-a,x+a,y+a).
Завершение программы без выхода из графического режима с помощью функции readkey.