Сравнение значений перечисления

type
  TSize = (XS, S, M, L, XL);

var
  Small, Large: TSize;
begin
  Small := S;
  Large := L;

  //comparison follows declaration order
  WriteLn('is l > s: ', Large > Small);
  //is l > s: TRUE
end.