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

uses crt;
var c:byte;
Begin
clrscr;
 writeln('vvedite nomer dny');
 write('vash vybor- ');
 readln(c);
 clrscr;
case c of
 1: begin writeln('v ponedelnik');
          write('6 yrokov');
    end;
 2: begin writeln('Во вторник');
          write('5 уроков');
    end;
  3: begin writeln('в среду');
          write('5 уроков');
    end;
 4: begin writeln('В четверг');
          write('6 уроков');
    end;
 5: begin writeln('В пятницу');
          write('5 уроков');
    end;
 6: begin writeln('в субботу ');
          write('2 урока');
    end;
 7: begin writeln('В воскресение');
          write('эээ... не учимся вроде.');
    end;
end;
readkey
end.