Задан номер дня в году и год. Определить календарную дату года - Free Pascal

Const mas:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
Var d:integer;
    g:1800..2012;
    i:integer;
Begin
    Repeat
     write('Введите порядковый номер дня в году: ');readln(d);
    Until (d>=1)and(d<=365);
    write('Введите год: ');readln(g);
    i:=0;
    While (d>0)and(i<12) do
     Begin
      inc(i);
      d:=d-mas[i];
     End;
    if d<=0 then d:=d+mas[i];
    writeln('Месяц: ',i,' День: ',d);
    readln;
End.