Else (зарезервированное слово)

 (* Использование оператора If *)
 If (I<Min) Or (I>Max) Then I:=0 Else I:=1;

 If ParamCount <> 2 then
 Begin
  WriteLn('Неверные параметры командной строки');
  Halt(1);
 End
  Else
 Begin
  ReadFile(ParamStr(1));
  WriteFile(ParamStr(2));
 End;

 (* Использование оператора Case *)
 Case Ch Of
   'A'..'Z', 'a'..'z' : WriteLn('Буква');
   '0'..'9'           : WriteLn('Цифра');
   '+', '-', '*', '/' : WriteLn('Оператор');
 Else WriteLn('Специальный символ');
 End;