MOS;
type
TCMOSType = record
    Seconds : byte;
    SecondAlarm : byte;
    Minutes : byte;
    MinuteAlarm : byte;
    Hours : byte;
    HourAlarm : byte;
    DayOfWeek : byte;
    DayOfMonth : byte;
    Month : byte;
    Year : byte;
    StatusRegA : byte;
    StatusRegB : byte;
    StatusRegC : byte;
    StatusRegD : byte;
    DiagStatus : Byte;
    ShutDownStatus : Byte;
    FloppyDrive : byte;
    Reserved1 : byte;
    FixedDrive : Byte;
    Reserved2 : byte;
    Equipment : byte;
    RAM : word;
    XMS : word;
    FixedDriveType1 : byte;
    FixedDriveType2 : byte;
    Reserved3 : word;
    Cylinder1 : word;
    Head1 : byte;
    WP1 : word;
    LZ1 : word;
    Sector1 : byte;
    Cylinder2 : word;
    Head2 : byte;
    WP2 : word;
    LZ2 : word;
    Sector2 : byte;
    Sys : byte;
    CheckSum : word;
    XMS1 : word;
    DateCentury : byte;
    InfoFlags : byte;
    Reserved4: array[1..12] of byte;
end;
TByte64 = array[1..64] of byte;
TCMOS = object
    CMOSRec : TCMOSType;
    procedure ReadCMOS;
    procedure WriteCMOS;
    procedure DisplayCMOS;
    procedure ModifyCMOS;
    procedure ReadFile;
    procedure WriteFile;
end;
procedure TCMOS.ReadFile;
var
    f1 : file;
    data : tbyte64 absolute CMOSRec;
    ch : char;
begin
    write(''Please input the drive name (A/B/C/D): '');
    readln(ch);
    assign(f1,ch+'':\CMOS.DAT'');
    reset(f1,1);
    blockread(f1,data,sizeof(data));
    close(f1);
end;
procedure TCMOS.WriteFile;
var
    f1:file;
    data : tbyte64 absolute CMOSRec;
    ch : char;
begin
    write(''Please input the drive name (A/B/C/D): '');
    readln(ch);
    assign(f1,ch+'':\CMOS.DAT'');
    rewrite(f1,1);
    blockwrite