A case statement allows a variable or comparison to be tested for equality against a list of values. Each value is called a selector field, and the variable being tested on is checked for each selector field. In pascal, the comparison or variable must result in an 8bit, 16bit, 32bit or 64bit ordinal, so you can compare against True, False, 0..255, #0..#255, but not Strings, Arrays or other complex data types.

   case place of
     1:Writeln('First Place!');
     2:Writeln('Second Place!');
     3:Writeln('Third Place!'); 
     else Writeln('Better luck next time!');
  end;

Source: Reserved Words

See Also:

if, else.