type TSector0 = Record
       Jump             : Array[1..3] of Char;    
{ NEAR-переход на код загрузки }
       OEMName          : Array[1..8] of Char;    
{ OEM-имя компании и версия системы }
       SectSize         : Word;                  
{ байт на сектор }
       ClustSize        : Byte;                  
{ секторов на единицу распределения (кластер) }
       ResSecs          : Word;                  
{ резервных секторов (секторов перед первой FAT) }
       FatCnt           : Byte;                  
{ число таблиц FAT }
       RootSiz          : Word;                  
{ макс.число 32-байтовых элементов корневого оглавления }
       TotSecs          : Word;                  
{ общее число секторов на носителе (раздел DOS) }
       Media            : Byte;                  
{ дескриптор носителя (то же,  что 1-й байт FAT) }
       FatSize          : Word;                  
{ число секторов в одной FAT }
       TrkSecs          : Word;                  
{ секторов на дорожку (цилиндр) }
       HeadCnt          : Word;                  
{ число головок чтения/записи (поверхностей) }
       HidnSec          : Word;                  
{ спрятанных секторов (исп. в схемах разделения) }
       Ostatok          : Array[1..486] of Char;  
{ Остаток,  что-бы сюда можно было читать сектор }
     End;

var s0           : TSector0;
    b:Array[0..512] of Byte;
    F            : File;
    I            : LongInt;
    c            : Integer;

Function ReadSector(A:Pointer; Disk:Byte; Count:Word; Sector:Word):Boolean;
var Error     :Word;
    Offs      :Word;
Begin
 Offs:=Word(A);
 Error:=0;
  asm
         mov  al, [Disk]         {Номер диска 0-A}
         mov  cx, [Count]        {Счетчик считываемых символов}
         mov  dx, [Sector]       {Начальный сектор}

         mov  bx, [Offs]
         int  25h
         pop  dx
         je   @nError
         mov  ax, 1
         mov  [Error], ax
@nError:
  end;
 if Error=0 then ReadSector:=True
            else ReadSector:=False;
End;

Function WriteSector(A:Pointer; Disk:Byte; Count:Word; Sector:Word):Boolean;
var Error     :Word;
    Offs      :Word;
Begin
 Offs:=Word(A);
 Error:=0;
  asm
         mov  al, [Disk]         {Номер диска 0-A}
         mov  cx, [Count]        {Счетчик считываемых символов}
         mov  dx, [Sector]       {Начальный сектор}

         mov  bx, [Offs]
         int  26h
         pop  dx
         je   @nError
         mov  ax, 1
         mov  [Error], ax
@nError:
  end;
 if Error=0 then WriteSector:=True
            else WriteSector:=False;
End;

Begin
 Assign(F, ParamStr(1)); If IOResult<>0 then Exit;
 If not ReadSector(@s0, 0, 1, 0) then Begin WriteLn('Error reading 0 sector.');
      halt(1);  End;
 If (ParamStr(2)='-s') or (ParamStr(2)='-S') or
    (ParamStr(2)='/s') or (ParamStr(2)='/S') then
     Begin
      Reset(F, 1); If IOResult<>0 then Exit;
      BlockRead(F, s0, 512, c); If c<>512 then Exit;
      Reset(F, 1); If IOResult<>0 then Exit;
      Write('Байт на сектор                                 : ');
      WriteLn(s0.SectSize);
      Write('Секторов на дорожку (цилиндр)                  : ');
      WriteLn(s0.TrkSecs);
      Write('Число головок чтения/записи (поверхностей)     : ');
      WriteLn(s0.HeadCnt);
      Write('Общее число секторов на носителе (раздел DOS)  : ');
      WriteLn(s0.TotSecs);
      Write('Общее число дорожек на носителе                : ');
      WriteLn(s0.TotSecs div (s0.TrkSecs*s0.HeadCnt));
      Write('Резервных секторов (секторов перед первой FAT) : ');
      WriteLn(s0.ResSecs);
      Write('Размер FAT                                     : ');
      WriteLn(s0.FatSize);
      Write('Количество FAT                                 : ');
      WriteLn(s0.FatCnt);
      WriteLn('-----------------------------------------------------');
      For I:=0 to s0.TotSecs-1 do
       Begin
        Write(round(I/s0.TotSecs*100), '%', #13);
        BlockRead(F, b, 512, c); If c<>512 then Exit;
        WriteSector(@b, 0, 1, I);
       End;
     End
 else
  Begin
   ReWrite(F, 1); If IOResult<>0 then Exit;
   Write('Байт на сектор                                 : ');
   WriteLn(s0.SectSize);
   Write('Секторов на дорожку (цилиндр)                  : ');
   WriteLn(s0.TrkSecs);
   Write('Число головок чтения/записи (поверхностей)     : ');
   WriteLn(s0.HeadCnt);
   Write('Общее число секторов на носителе (раздел DOS)  : ');
   WriteLn(s0.TotSecs);
   Write('Общее число дорожек на носителе                : ');
   WriteLn(s0.TotSecs div (s0.TrkSecs*s0.HeadCnt));
   Write('Резервных секторов (секторов перед первой FAT) : ');
   WriteLn(s0.ResSecs);
   Write('Размер FAT                                     : ');
   WriteLn(s0.FatSize);
   Write('Количество FAT                                 : ');
   WriteLn(s0.FatCnt);
   For I:=0 to s0.TotSecs-1 do
    Begin
     Write(round(I/s0.TotSecs*100), '%', #13);
     ReadSector(@b, 0, 1, I);
     BlockWrite(F, b, 512);
    End;
  End;
 Close(F);
End;