unit mygraph; {заголовок модуля}
interface      
 
uses crt, oglgraph; {описание используемых библиотек в модуле}
 
var
   gd, gm   : integer;
 
{заголовки доступных из программы процедур}
Procedure Graphini; 
Procedure GraphEnd;
 
implementation {содержимое модуля - сами процедуры и функции}
 
Procedure Graphini; {процедура инициализации графического окна}
begin
   gd:=detect;
   gm:=detectmode;
   initGraph(gd,gm,'');
   if Graphresult<>GrOk then
      begin
         writeln('Graphics is not Ok');
         halt(1);
      end else
         writeln('GraphResult = ',graphresult);
   SetDoubleBuffer(true);      	  
   clearviewport;
   delay(300);
end;
 
Procedure GraphEnd; {процедура закрытия графического окна}
begin
   SetDoubleBuffer(false);
   clearviewport;
   CloseGraph;
end;
 
begin {часть модуля, которая исполняется при вызове его из программы}
 
end.