一个pascal问题

turbo pascal

program baiduzhidao;
var
y,m,d,b,c:integer;
a:array[1..12] of integer;
begin
write('input m,d:');
read(m,d);
for y:=1 to 12 do
begin
if y=2 then a[y]:=28;
if (y=4)or(y=6)or(y=9)or(y=11) then a[y]:=30
else a [y]:=31;
end;
for y:=1 to m do
begin
b:=b+a[y];
end;
b:=b+d;
c:=b mod 7;
if c=0 then writeln('Sunday');
if c=1 then writeln('Monda');
if c=2 then writeln('Tuesay');
if c=3 then writeln('Wednesday');
if c=4 then writeln('Thursday');
if c=5 then writeln('Friday');
if c=6 then writeln(Saterday');
end.
这是第一题 不知道对不对 我想应该对的因为我也学了一段时间