Не работает ассемблер в Free Pascal

uses dos,crt;
var
a:integer;
{$ASMMODE INTEL}
{=======================================================}
function MX:integer;
var resX:integer;
begin
     ASM
     mov ax,$03;
     int $33;
     mov resX,CX;
     end;
     MX:=resX;
end;
{=======================================================}
function MY:integer;
var resY:integer;
begin
     ASM
     mov ax,$03;
     int $33;
     mov resY,DX;
     end;
     MY:=resY;
end;
{=======================================================}
function MB:byte;
var b:byte;
begin
     ASM
     mov ax,$3;
     int $33;
     mov b,bl;
     end;
     MB:=b;
end;
{=======================================================}
 
begin
clrscr;
repeat
gotoxy(1,1);
write(MX,' ',MY,' ',MB,'    ');
until keypressed;
END.

Uses DOS;
Var
  Font         : Array[1..4096] Of Byte;
  FontFile     : File;
  CPURegisters : Registers;
Begin
 Assign(FontFile,'FONT.FNT');
 ReSet(FontFile,1);
 BlockRead(FontFile,Font,4096);
 Close(FontFile);
 CPURegisters.AX:=$0003;
 Intr($10,CPURegisters);
 CPURegisters.AX:=$1110;
 CPURegisters.BH:=$10;
 CPURegisters.BL:=$0;
 CPURegisters.CX:=$100;
 CPURegisters.DX:=$0;
 CPURegisters.ES:=Seg(Font);
 CPURegisters.BP:=Ofs(Font);
 Intr($10,CPURegisters);
 CPURegisters.AH:=$1;
 CPURegisters.CX:=$0E0F;
 Intr($10,CPURegisters);
end.

Uses
  DOS, Go32;
Var
  Font         : Array[1..4096] Of Byte;
  FontFile     : File;
  CPURegisters : Registers;
  SegSel       : LongInt;
Begin
 Assign(FontFile,'FONT.FNT');
 ReSet(FontFile,1);
 BlockRead(FontFile,Font,4096);
 Close(FontFile);
 
 {выделяем память в первом мегабайте}
 SegSel:=Global_DOS_Alloc(SizeOf(Font));
 if int31error<>0
 then begin
   WriteLn('Error while allocation real mode memory, halting...');
   Halt(1);
 end;
 {копируем в неё содержимео переменной Font}
 DosMemPut(Word(SegSel shr 16), 0, Font, SizeOf(Font));
 
 {вызываем прерывания}
 CPURegisters.AX:=$0003;
 Intr($10,CPURegisters);
 CPURegisters.AX:=$1110;
 CPURegisters.BH:=$10;
 CPURegisters.BL:=$0;
 CPURegisters.CX:=$100;
 CPURegisters.DX:=$0;
 CPURegisters.ES:=Word(SegSel shr 16);    //Seg(Font);
 CPURegisters.BP:=0;                      //Ofs(Font);
 Intr($10,CPURegisters);
 CPURegisters.AH:=$1;
 CPURegisters.CX:=$0E0F;
 Intr($10,CPURegisters);
 
 {освобождаем память из первого мегабайта}
 Global_DOS_Free(Word(SegSel));
end.