Program Menghitung Bulan

Program Menghitungbulan;
uses wincrt;
var matriks : array [1..2, 1..12] of integer;
A,B :integer;
Begin
  clrscr;
  matriks [1,1] := 1;
  matriks [1,2] := 2;
  matriks [1,3] := 3;
  matriks [1,4] := 4;
  matriks [1,5] := 5;
  matriks [1,6] := 6;
  matriks [1,7] := 7;
  matriks [1,8] := 8;
  matriks [1,9] := 9;
  matriks [1,10]:= 10;
  matriks [1,11]:= 11;
  matriks [1,12]:= 12;
  matriks [2,1] := 31;
  matriks [2,2] := 28;
  matriks [2,3] := 31;
  matriks [2,4] := 30;
  matriks [2,5] := 31;
  matriks [2,6] := 30;
  matriks [2,7] := 31;
  matriks [2,8] := 31;
  matriks [2,9] := 30;
  matriks [2,10]:= 31;
  matriks [2,11]:= 30;
  matriks [2,12]:= 31;
 
  for A:=1 to 2 do
  begin
    for B:=1 to 12 do
    begin
      write(matriks [A,B]);
      write('  ');
    end;
    readln;
  end;
end.