Мастям игральных карт присвоены порядковые номера. Вывести название соответствующих карт

var
 m, n: integer;
begin
 writeln('Введите масть: ');
 writeln('1. Пики; 2. Трефы; 3. Бубны; 4. Червы; ');
 readln(m);
 writeln('Введите карту: ');
 writeln('6..10. 6 - 10; 11. Валет; 12. Дама; 13. Король; 14. Туз; ');
 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: write('пик');
   2: write('треф');
   3: write('бубей');
   4: write('червей');
  end;
end.

const a:array [2..14] of string=('двойка ','тройка ','четверка ','пятерка ','шестерка ','семерка ','восьмерка ','девятка ','десятка ','валет ','дама ','король ','туз ');
      b:array [1..4] of string=('пик','треф','бубен','червей');
var
x,y:integer;
begin
readln(x,y);
writeln(a[x],b[y]);
end.