Пример 1:

Program primer ; 
Uses graph ; 
Var D , m : integer ; {переменные для установки драйвера, режима} 
Begin 
   D:= detect; 
   InitGraph(d,m, ‘ путь к драйверу ’); 
   If GraphResult =0 then {если инициализация прошла успешно, т.е. нет ошибки} 
   begin 
      <описание всех ваших построений> 
      readln;   {используется для того, что бы программа сразу же не закрылась}

      closeGraph ; 
   end 
   else writeln (‘произошла ошибка при инициализации графики’); 
end .

Пример 2:

Program primer ; 
Uses graph ; 
Var D , m : integer ; {переменные для установки драйвера, режима} 
Begin 
   D:= detect; 
   InitGraph(d,m, ‘ путь к драйверу ’); 
   If GraphResult <>0 then halt; {если есть ошибка, то закрываем программу}
      <описание всех ваших построений> 

readln; {используется для того, что бы программа сразу же не закрылась}

closeGraph ; 
  
end .

После того, как Вы написали основную часть программы, Вы можете прописывать процедуры и функции рисования в основном блоке программы, а точнее, вот здесь - <описание всех ваших построений>  (смотрите выше в примерах)