Работа с прерываниями и с функцией MSDOS

Program WorkWithFAT;
Uses Dos,Crt;
var regs :Registers; n :Word;f :integer;
{Функция показывающяя количество имееющихся дисков на компьютере}
function NumberOfDisks(var reg :Registers): Word;
begin
with reg do begin
  AH:=$19;
  MsDos(regs);
  DL:=AL;
  AH:=$0E;
  MsDos(regs);
  NumberOfDisks:=AL;
end;end;
{Функция которая вернет объем диска в MB
параметр num -номер дисковода}
function DiskSize(var reg :Registers;num: byte):integer;
var _al,_cx,_dx : word;f,r :integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
_al:=AL;
_cx:=CX;
_dx:=DX;
f:=_dx div 1024;
r:=f*_al*_cx div 1024;
DiskSize:=r;
end;
end;
{Функция которая вернет объем свободного пространства в MB
параметр num -номер дисковода}
function FreeSpaceOnDisk(var reg :Registers;num: byte):integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
FreeSpaceOnDisk:=trunc(AX*CX*BX/1024*1024);
end;
end;
{Функция которая вернет объем свободного пространства в процентах
параметр num -номер дисковода}
function FreeSpaceOnDiskPersent(var reg :Registers;num: byte):integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
FreeSpaceOnDiskPersent:=trunc(BX/DX*100);
end;
end;
{Функция которая вернет число байтов в одном кластере 
параметр num -номер дисковода}
function NumBytesOnCluster(var reg :Registers;num: byte):integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
NumBytesOnCluster:=AX*CX;
end;
end;
{Функция которая вернет число кластеров при заданном размере файла 
параметр num - размер файла}
function NumCluster(var reg :Registers;num: integer):integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
NumCluster:=trunc(num/AX*CX);
end;
end;
{Функция которая вернет число секторов при заданном размере файла 
параметр num - размер файла}
function NumSector(var reg :Registers;num: integer):integer;
begin
with reg do begin
DL:=num;
AH:=$36;
Msdos(regs);
NumSector:=trunc(num/CX);
end;
end;
Begin 
ClrScr;
with regs do begin
 
 
{Информация о памяти}
Writeln('Enter the disc number [0..',NumberOfDisks(regs),']:');
read(n);
Writeln('Disk Size :',DiskSize(regs,n));
Writeln('Free space on disk :',FreeSpaceOnDisk(regs,n));
Writeln('Free space on disk :',FreeSpaceOnDiskPersent(regs,n),'%');
Writeln('The number of bytes in a single cluster :',NumBytesOnCluster(regs,n));
Writeln('Enter the number of bytes your file :');
read(f);
Writeln('In your file :',NumCluster(regs,f),' clusters');
Writeln('In your file :',NumSector(regs,f),' sectors');
readln;
end;
end.