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

[Pchelka1992]

Здравствуйте помогите написать программу через оператора выбора case.

Написать программу, которая по номеру дня недели ( целому числу от 1 до 7 ) выдаст в качестве результата количество уроков в вашем классе в этот день.
Вот у меня написано, но не через это оператор.Помогите пожалуйста

uses crt;
const n=7;
a:array[1..n] of byte=(7,6,7,6,5,5,0);
var w:byte;
begin
clrscr;
repeat
writeln('Введите номер дня недели 1-7 w=');
readln(w);
until w in [1..7];
writeln('Количество уроков=',a[w]);
readln
end.

[evg_m]

case w of 
1:writeln('Количество уроков=',a[1]); //либо так
2:writeln('Количество уроков=',6);  //либо так
.... .// аналогично для остальных дней
else writeln('неправильный день'); 
уend;