34     

    34     

    35     PByte = ^Byte;

    35     PByte = ^Byte;

    36     PLongInt = ^LongInt;

    36     PLongInt = ^LongInt;

    37     PLongWord = ^LongWord;

    37     PLongWord = ^LongWord;

    38     PInteger = ^Integer;

    38     PInteger = ^Integer;

    39 var 

    42 var 

    40     false, true: boolean;

    43     false, true: boolean;

    41     write, writeLn, read, readLn, inc, dec: procedure;

    44     write, writeLn, read, readLn, inc, dec: procedure;

    42     StrLen, ord, Succ, Pred : function : integer;

    45     StrLen, ord, Succ, Pred : function : integer;

    43     Low, High : function : integer;

    46     Low, High : function : integer;

    44     Now : function : integer;

    47     Now : function : integer;

    45     StrPas, FormatDateTime : function : shortstring;

    49     StrPas, FormatDateTime : function : shortstring;

    46     exit : procedure;

    50     exit : procedure;