Нарисовать прямоугольник и заполнить его цветом после нажатия на Enter - Free Pascal

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

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

                    Листинг программы
                
 
                        
                          
                    
program aa;
uses graph,crt;
var c,a,b:integer;
k:char;
begin
randomize;
a:=Detect;InitGraph(a,b,'');
 
c:=random(14);
SetBkColor(c);SetColor(c);
rectangle(120,120,260,180);
k:=readkey;
if k=#13 then
begin
setfillstyle(1,c);
bar(120,120,260,180);
 
end;
end.

Спасибо!)

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

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

program aa;
uses wingraph,wincrt;
var
  gd, gm : smallint;
  c : integer;
  k:char;
begin
  randomize;
  gd := d8bit; gm := m800x600;
  InitGraph(gd,gm,'');
 
  c:=random(14);
  SetBkColor(c);SetColor(c);
  rectangle(120,120,260,180);
  k := #0;
  repeat
    if keypressed then k:=readkey;
  until k = #13;
 
  setfillstyle(1,c);
  bar(120,120,260,180);
 
  k := #0;
  repeat
    if keypressed then k:=readkey;
  until k = #13;
  closegraph;
end.

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

Список действий в коде:

Объявление переменных: gd, gm, c, k.
Инициализация переменных: gd := d8bit; gm := m800x600; c := random(14); k := #0.
Инициализация графического режима и создание окна: InitGraph(gd,gm,'').
Очистка экрана и печать прямоугольника с заданным цветом: SetBkColor(c);SetColor(c); rectangle(120,120,260,180);
Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
Заливка прямоугольника цветом: setfillstyle(1,c); bar(120,120,260,180);
Проверка нажатия клавиш и ожидание нажатия Enter: repeat if keypressed then k := readkey until k = #13;
Закрытие графического окна: closegraph;