Numpad to matrix

Procedure Determinate(Choice:Byte;var L,C:byte);      {Determinates L and C based on Choice}
Begin
  Case Choice of
    1 : Begin
          L:=3;
          C:=1;
        End;
    2 : Begin
          L:=3;
          C:=2;
        End;
    3 : Begin
          L:=3;
          C:=3;
        End;
    4 : Begin
          L:=2;
          C:=1;
        End;
    5 : Begin
          L:=2;
          C:=2;
        End;
    6 : Begin
          L:=2;
          C:=3;
        End;
    7 : Begin
          L:=1;
          C:=1;
        End;
    8 : Begin
          L:=1;
          C:=2;
        End;
    9 : Begin
          L:=1;
          C:=3;
        End;
  End;
End;