uses oglgraph;                     // Необходимая библиотека, у нас заменяет graph
 
var 
  gd, gm: smallint;      
  mx, my, cx, cy:smallint;         
  x, y, d:smallint;
 
begin
  gd := Detect;                    // Автоматическая установка разрешения
  gm := DetectMode;
  initgraph(gd, gm, '');           // Открытие "графического окна" 
 
{далее все, что Вы хотите нарисовать, например:}

mx := getmaxX;
my := getmaxY;
cx := mx div 2;
cy := my div 2;

x  := cx;
y  := cy;
d  :=cx div 4;

rectangle(x-d, y-d, x+d, y+d);   // А вот и рисование !!!!!!

 
  
{конец отрисовки}
  repeat until graphkeypressed;    // Задержка закрытия графического окна до нажатия 
                                   // клавиши для завершения работы программы - 
                                   // иначе рискуете ничего толком не увидеть
 
  closegraph();                    // закрытие графического окна - не обязательно, но рекомендуемо.
 
end.