else (reserved word)

 (* using "if" statement *)
 if (I < Min) or (I > Max) then I := 0;

 if ParamCount <> 2 then
 begin
   WriteLn('Bad command line');
   Halt(1);
 end
 else
 begin
   ReadFile(ParamStr(1));
   WriteFile(ParamStr(2));
 end;

 (* using "case" statement *)
 case Ch of
   'A'..'Z', 'a'..'z':  WriteLn('Letter');
   '0'..'9':            WriteLn('Digit');
   '+', '-', '*', '/':  WriteLn('Operator');
 else
   WriteLn('Special character');
 end;