По заданному номеру вывести на экран дни недели на паскале

Const 
    d: array [1..7] of string = 
        ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); 
var 
    n: integer; 
begin 
    write('Номер дня недели? '); 
    readln(n); 
    if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода'); 
end.