Даны два целых числа: N — достоинство (6 <= N <= 14) и M — масть карты (1 <= M <= 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п. - Pascal(Паскаль)

Program Case15;

Var
  N, M: Byte;

Begin
  WriteLn('Введите масть карты: ');
  ReadLn(M);
  WriteLn('Введите достоинство карты: ');
  ReadLn(N);
  Case N Of
    6:
      Write('«шестерка ');
    7:
      Write('«семерка ');
    8:
      Write('«восьмерка ');
    9:
      Write('«девятка ');
    10:
      Write('«десятка ');
    11:
      Write('«тупой валет ');
    12:
      Write('«дама ');
    13:
      Write('«король ');
    14:
      Write('«туз ');
  End;

  Case M Of
    1:
      WriteLn('пик»');
    2:
      WriteLn('треф»');
    3:
      WriteLn('бубн»');
    4:
      WriteLn('червы»');
  End;

End.