system;

type 

    Integer = integer;

    LongInt = integer;

    LongWord = integer;

    Cardinal = integer;

    PtrInt = integer;

    Word = integer;

    Byte = integer;

    SmallInt = integer;

    ShortInt = integer;

    QWord = integer;

    GLInt = integer;

    GLUInt = integer;

    gl_unsigned_byte = integer;

    pointer = pointer;

    PChar = pointer;

    float = float;

    single = float;

    double = float;

    real = float;

    extended = float;

    GLFloat = float;

    gl_float = float;

    boolean = boolean;

    LongBool = boolean;

    string = string;

    shortstring = string;

    ansistring = string;

    widechar = string;

    char = char;

    PByte = ^Byte;

    PLongInt = ^LongInt;

    PLongWord = ^LongWord;

    PInteger = ^Integer;

    Handle = integer;

    stderr = Handle;

var 

    false, true: boolean;

    write, writeLn, read, readLn: procedure;

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

    inc, dec, Low, High, Lo, Hi : function : integer;

    odd, even : function : boolean;

    Now : function : integer;

    Length : function : integer;

    SetLength, val : procedure;

    new, dispose, FillChar, Move : procedure;

    trunc, round : function : integer;

    Abs, Sqr : function : integer;

    IOResult : function : integer;

    exit, break, halt : procedure;

    Sqrt, ArcTan2, pi, cos, sin : function : float;

    TypeInfo, GetEnumName : function : shortstring;

    UTF8ToUnicode, WrapText: function : shortstring;

    sizeof : function : integer;

    GetMem : function : pointer;

    FreeMem : procedure;

    gl_texture_2d, glbindtexture, gltexparameterf, gl_rgba, 

    glteximage2d, glvertexpointer, gltexcoordpointer,

    gl_triangle_fan, gldrawarrays, glpushmatrix, glpopmatrix,

    gltranslatef, glscalef, glrotatef, gldisable, glenable,

    gl_line_smooth, gllinewidth, gl_lines, gl_line_loop,

    glcolor4ub, gl_texture_wrap_s, gltexparameteri,

    gl_texture_wrap_t, gl_texture_min_filter,

    gl_linear, gl_texture_mag_filter, glgentextures,

    TThreadId : function : integer;