>
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 {часть модуля, которая исполняется при вызове его из программы в разделе uses}

end.