помогите решить задачу по программированию на языке паскаль, зарание спасибо

var
d,m,y,num,i:integer;
months :array[1..12] of integer;
begin

num := 0; // номер дня

write('Введите год: ');
readln(y);

months[1] := 31;
// описание високосного года
if(y mod 4 = 0) and ((y mod 100 <> 0) or (y mod 400 = 0)) then months[2] := 29
else months[2] := 28;
months[3] := 31;
months[4] := 30;
months[5] := 31;
months[6] := 30;
months[7] := 31;
months[8] := 31;
months[9] := 30;
months[10] := 31;
months[11] := 30;
months[12] := 31;

repeat
write('Введите месяц: ');
readln(m);
until (m >= 1) and (m <= 12);
repeat
write('Введите день: ');
readln(d);
until (d >=1) and (d <= months[m]);

num := num + d;

for i := 1 to m-1 do
num := num + months[i];

writeln('Количество дней с начала этого года равно ',num);

end.