Помогите , пожалуйста:с
Мастям игральных карт присвоены порядковые номера: 1 — пики,2— трефы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа: N — достоинство (6 < N < 14) и M — масть карты (1 < M < 4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т. п. Нужно составить программу на Delphi7

varn,minteger;beginwrite('N = '); readln(n);write('M = '); readln(m);case n of write('шестерка '); write('семерка '); write('восьмерка '); write('девятка '); write('десятка '); write('валет '); write('дама '); write('король '); write('туз '); else writeln('ошибка ввода '); end;  case  of write('пик'); write('треф'); write('бубен'); write('червей');end.Наример:N = 10M = 2десятка треф