Напечатать на экране «календарь» на один месяц

a[i,j]:=random(20);

uses crt;
const n=7;
      m=6;
      dn:array[1..n] of string[2]=('пн','вт','ср','чт','пт','сб','вс');
type matr=array[1..n,1..m] of byte;
procedure Arr(var mt:matr;d1,dp:byte);
var i,j:byte;
begin
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 textcolor(12)
  else  textcolor(15);
  write(dn[i]);
  for j:=1 to m do
  if mt[i,j]=0 then write(' ':3)
  else write(mt[i,j]:3);
  writeln;
 end;
end;
var kl:matr;
    ms,d1,kd:byte;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Введите номер месяца от 1 до 12 ms=');
repeat
readln(ms);
until ms in [1..12];
case ms of
1:begin
  d1:=5;
  kd:=31
  end;
2:begin
  d1:=1;
  kd:=28
  end;
3:begin
  d1:=1;
  kd:=31
  end;
4:begin
  d1:=4;
  kd:=30
  end;
5:begin
  d1:=6;
  kd:=31
  end;
6:begin
  d1:=2;
  kd:=30
  end;
7:begin
  d1:=4;
  kd:=31
  end;
8:begin
  d1:=7;
  kd:=31
  end;
9:begin
  d1:=3;
  kd:=30
  end;
10:begin
   d1:=5;
   kd:=31
   end;
11:begin
   d1:=1;
   kd:=30
   end;
12:begin
   d1:=3;
   kd:=31
   end;
end;
Arr(kl,d1,kd);
readln;
textcolor(15);
writeln('Продолжить? y/Y-да, другое-нет');
readln(w);
until not(w in ['y','Y']);
end.