{ program. Compiler - Turbo Pascal 7.0  }
Procedure ClrScr; assembler;  {Ќг Ґ­в® зв®Ўл CRT ­Ґ Ї®¤Є«оз вм :) }
asm
MOV AL,$00
MOV AH,$06
MOV BH,$07
MOV CX,$0000
MOV DX,$184F
int $10
MOV AH,$02
MOV BH,$00
MOV DH,$00
MOV DL,$
int $10
end;

var
s:string;
b:array[1..6] of byte absolute s;
a:word;
d:byte absolute a;
I:byte;
s1:string;
begin
ClrScr;
asm
 mov ah,$00
 mov al,$50
 mov a, ax
end;
b[1]:=Lo(a);
b[2]:=ORD('a');
b[3]:=115+Lo(a)-d;
b[4]:=99;
b[5]:=ORD(#97);
b[6]:=$6C;
for i:=0 to 5 do begin s1[succ(i)]:=s[i]; inc(s1[0]) end;
writeln(s1,' !');
end.

var c : integer;
   c_ar : array[1..4] of byte absolute c;

Type
 TBootRec=Record
   ...
 End; {В сумме не 512 б, а только заголовок}

...

Function GetReservedSectors:Integer;
Var
 Buf:Array[0..512] Of Byte;
 BootRec:TBootRec Absoulte Buf;
Begin
 ReadDisk(Buf,CurDisk,0,1);
 GetReservedSectors:=BootRec.ReservedSectors
End;