pascal шрифты

[gluik]

для игры по курсовой зарегестрировал русские шрифты, когда запускаю run всё нормально,но если запускать exe файл то вместо них каракули
код файла где идёт регистрация шрифтов:

Код: Выделить всё

PROGRAM Prog;

USES Menu,Main,crt,graph;

VAR
 Driver,Mode:integer;
 Error:integer;

{$F+}
Procedure EGAVGADriverProc; External;
{$L EGAVGA}
{$F-}

{$F+}
Procedure LITTR; External;
{$L LITTR.obj}
{$F-}

{$F+}
Procedure GOTHR; External;
{$L GOTHR.obj}
{$F-}

{$F+}
Procedure TSCRR; External;
{$L TSCRR.obj}
{$F-}

BEGIN
  if RegisterBGIDriver(@EGAVGADriverProc)<0 then
    begin
      WriteLn('Ошибка при регистрации драйвера');
      Halt
    end;
  if RegisterBGIFont(@LITTR)<0 then
    begin
      WriteLn('Ошибка при регистрации драйвера');
      Halt
    end;
  if RegisterBGIFont(@GOTHR)<0 then
    begin
      WriteLn('Ошибка при регистрации драйвера');
      Halt
    end;
  if RegisterBGIFont(@TSCRR)<0 then
    begin
      WriteLn('Ошибка при регистрации драйвера');
      Halt
    end;
  clrscr;
  Driver:=VGA;
  Mode:=VGAHi;
  InitGraph(Driver,Mode,'c:\BP\BGI');
  Error:=GraphResult;
  if Error<>0 then
    begin
      Writeln('Ошибка инициализации графики номер', Error);
      Halt
    end;

  Zastavka;
  Show_Menu;

  CloseGraph;
END.