За номером месяца для текущего года вывести количество дней в этом месяце — Pascal(Паскаль)

uses crt;
type arr=array[1..12] of integer;
const mas:arr=(31,28,31,30,31,30,31,31,30,31,30,31);
var m:integer;
begin
clrscr;
repeat
write('Введите номер месяца: ');readln(m);
until m in [1..12];
write(mas[m]);
readln;
end.