uses Graph;
var
  Driver, Mode : Integer;
  FontF        : File;
  FontP        : Pointer;
begin
 { Открываем файл шрифта, регистрируем }
  Assign(FontF, 'TRIP.CHR');
 Reset(FontF, 1);
 GetMem(FontP, FileSize(FontF));
 BlockRead(FontF, FontP^, FileSize(FontF));
 if RegisterBGIFont(FontP) < 0 then
 begin
   WriteLn('Ошибка регистрации шрифта: ', GraphErrorMsg(GraphResult));
   Halt(1);
 end;
 { Инициализируем графику }
  Driver := Detect;
  InitGraph(Driver, Mode, 'X:\BP'); { Путь к BGI драйверам }
 if GraphResult < 0 then
   Halt(1);
 ReadLn;
 { Выбираем установленый шрифт }
  SetTextStyle(TriplexFont, HorizDir, 4);
  OutText('Triplex loaded by user program');
  MoveTo(0, TextHeight('a'));
 ReadLn;
 { Выбираем шрифт, загружаемый с диска }
  SetTextStyle(SansSerifFont, HorizDir, 4);
  OutText('Your disk should be spinning..');
  MoveTo(0, GetY + TextHeight('a'));
 ReadLn;
 { Перевыбираем фонт, уже находящийся в памяти }
  SetTextStyle(TriplexFont, HorizDir, 4);
  OutText('Back To Triplex');
 ReadLn;
  CloseGraph;
end.