lape-case-bug?

var
  x: Integer;

begin
  x := 1;
  case (x > 0) of
    True: WriteLn('YES');
    False: WriteLn('NO');
  end;
end.