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

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.