Процедура

[lavr9]

Подскажите что выполняет даная програма
procedure Arr(var mt:matr;d1,dp,ms:byte);
var i,j:byte;
numb:string;
begin
settextstyle(2,0,8);
outtextxy(350,200,month[ms]);
for i:=1 to m do
begin
mt[d1,i]:=(i-1)*7+1;
if mt[d1,m]>dp then mt[d1,m]:=0;
end;
for i:=d1+1 to n do
for j:=1 to m do
if (mt[i-1,j]<=dp-1)and(mt[i-1,j]>0) then mt[i,j]:=mt[i-1,j]+1
else mt[i,j]:=0;
for i:=d1-1 downto 1 do
for j:=1 to m do
if j=1 then mt[i,j]:=0
else if mt[i+1,j]>0 then mt[i,j]:=mt[i+1,j]-1
else if mt[i,m-1]<=dp-7 then mt[i,m]:=mt[i,m-1]+7
else mt[i,j]:=0;
for i:=1 to n do
begin
if i>=6 then setcolor(4)
else setcolor(15);
outtextxy(300,200+i*25,dn[i]);
for j:=1 to m do
begin
str(mt[i,j],numb);
if mt[i,j]<>0 then outtextxy(300+j*35,200+i*25,numb);
end;
end;
end;