uses Graph;

var
  Driver, Mode : Integer;
  DriverF      : File;
  DriverP      : Pointer;
begin
 { Загружаем и регистрируем файл драйвера }
  Assign(DriverF, 'CGA.BGI');
 Reset(DriverF, 1);
 GetMem(DriverP, FileSize(DriverF));
 BlockRead(DriverF, DriverP^, FileSize(DriverF));
 if RegisterBGIDriver(DriverP) < 0 then
 begin
   WriteLn('Ошибка регистрации драйвера: ', GraphErrorMsg(GraphResult));
   Halt(1);
 end;
 { Инициализируем графику }
  Driver := CGA;
  Mode := CGAHi;
  InitGraph(Driver, Mode, '');
 if GraphResult < 0 then
   Halt(1);
  OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Driver loaded successfully');
 ReadLn;
  CloseGraph;
end.