Оператор выбора CASE

Оператор действия case выполняет одно действие, в зависимости от значения в переменной переключателе.
Общая форма оператора:

case переключатель of
  список выбора 1: оператор1;
  ...
  список выбора N: операторN;
  else оператор0
end; 

case day of
  1:Write('понедельник');
  2:Write('вторник');
  3:Write('среда');
  4:Write('четверг');
  5:Write('пятница');
  6:Write('суббота');
  7:Write('воскресенье');
end;

case x of
  1:Write('плохо');
  2:Write('неудовлетворительно');
  3:Write('удовлетворительно');
  4:Write('хорошо');
  5:Write('отлично');
  else Write('ошибка');
end;

case month of
  1,2,12:Write('зима');
  3..5:Write('весна');
  6..8:Write('лето');
  9..11:Write('осень');
end;

case route of
  'С':Write('Север');
  'В':Write('Восток');
  'Ю':Write('Юг');
  'З':Write('Запад');
  else Write('Ошибка!');
end;

var letter:char;
begin
letter:='А';
case letter of
  'а'..'я':Write('Строчные');
  'А'..'Я':Write('Прописные');
  else Write('Это не буква');
end;

begin
  Read(age);
  case age mod 10 of
    1:str:=str+'год';
    2,3,4:str:=str+'года';
    5,6,7,8,9,0:str:=str+'лет';
  end;
end.