Как создать программу, которая по номеру дня недели выдает на экран его название

Var a: integer;
begin
writeln('введите номер дня недели');
readln(a);
if a=1 then writeln('понедельник');
if a=2 then writeln('вторник');
if a=3 then writeln('среда');    
if a=4 then writeln('четверг');
if a=5 then writeln('пятница');
if a=6 then writeln('суббота');
if a=7 then writeln('воскресенье');
if (a>7) or (a<1) then writeln('такого дня недели нет');
end.