Program Ex_5_Prac_SportLoto;
Uses

  CRT, Mouse, ErrCodes;

Const

  MaxColumns = 6;
  MaxRows = 6;

// Type section

Type

  PTGame = ^TGame;
  TPlayGround = Array [1..MaxRows, 1..MaxColumns] OF Byte; {6 columns, 6 rows}

// TGame Interface section

  TGame = object
  private
    PG: TPlayGround;
  public
    Constructor Init;
    Destructor Done;
    Procedure RandomFillPG;
    Procedure UserFillPG;
    Function GetPG: TPlayGround;
  end;

// TMenu Interface section

  TMenu = object
  private
    P: PTGame;
  public
    Constructor Init(var PGame: PTGame);
    Destructor Done;
    Procedure DrawPlayGround;
  end;

// TGame Implementation section

  Constructor TGame.Init;
    begin
      Randomize;
    end;

  Destructor TGame.Done;
    begin
    end;

  Procedure TGame.RandomFillPG;
    var
      Row, Column: Byte;
      i: Byte;
    begin
      i := 0;
      For Row := 1 To MaxRows Do
        For Column := 1 To MaxColumns Do
          begin
            inc(i);
            PG[Row, Column] := i;
          end;
    end;

  Procedure TGame.UserFillPG;
    begin
    end;

  Function TGame.GetPG;
    begin
      GetPG := PG;
    end;

// TMenu Implementation section

  Constructor TMenu.Init;
    begin
      P := PGame;
    end;

  Destructor TMenu.Done;
    begin
    end;

  Procedure TMenu.DrawPlayGround;
    var
      Row, Column: Byte;
    begin
      For Row := 1 To MaxRows Do
        begin
          For Column := 1 To MaxColumns Do
            Write(P^.GetPG[Row, Column]:3);
          WriteLn;
        end;
    end;

// Variable Definition section

Var

  Menu: ^TMenu;
  Game: ^TGame;

// Main Program's Logic section

Begin

  New(Game, Init);
  New(Menu, Init(Game));
    Menu^.DrawPlayGround;
  Dispose(Menu, Done);
  Dispose(Game, Done);
  ReadKey;

End.