Написать программу в Паскаль((

[Pchelka1992]

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

[MyLastHit]

var a:array[1..7] of byte; //массив уроков
      n,i:byte;
begin
a[1]:=1;
a[2]:=2;
a[3]:=3;
a[4]:=4;
a[5]:=5;
a[6]:=6;
n:=dayofweek(now);
for i:=1 to 7 do
if a[i]=n-1 then
writeln('Сегодня ',a[i],' пар');
readln;
end.