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

var    d: integer;    repeat      readln(d);      case d of      1: writeln('Понедельник');      2: writeln('Вторник');      3: writeln('Среда');      4: writeln('Четверг');      5: writeln('Пятница');      6: writeln('Суббота');      7: writeln('Воскресенье');      else writeln('Конец работы!')      end;   until (d<1 or d>7) end.