Greater than

program comparisonDemo(input, output, stderr);

type
    size = (tiny, small, medium, large, huge);

var
    n, m: longint;
    c, d: char;

begin
    // of course, integers can be compared
    n :=  2;
    m := -2;
    
    if n > m then
    begin
        writeLn(n, ' > ', m);
    end;
    
    // also enumerative types can be ordered
    if huge > medium then
    begin
        writeLn('huge is greater than medium');
    end;
    
    // but the constants true and false are also comparable
    if true > false then
    begin
        writeLn('true is greater than false');
    end;
    
    // characters stay in a relation to each other, too
    // (result depends on the used character set)
    c := 'a';
    d := 'Z';
    
    if c > d then
    begin
        writeLn(c, ' > ', d);
    end;
end.

program comparisonSignedDemo(input, output, stderr);

var
    n: int64;
    m: qword;

begin
    n := -1; // n stored as %111...111
    m :=  2; // m stored as %000...010
    
    // signed comparison
    if n > m then
    begin
        writeLn(n, ' > ', m);
    end;
    
    // "unsigned" comparison
    if qword(n) > m then
    begin
        writeLn('qword(', n, ') > ', m);
    end;
end.