Модули

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.