С клавиатуры вводиться номер масти карты, потом номер карты выводится сообщение

var n,m:integer;s:string;beginwriteln('Номера масти и карты');readln(m,n);case n of 6: s:='шестерка'; 7: s:='семерка'; 8: s:='восьмерка'; 9: s:='девятка'; 10: s:='десятка'; 11: s:='валет'; 12: s:='дама'; 13: s:='повелитель'; 14: s:='туз';end;case m of 1: s:=s+' пик'; 2: s:=s+' крестей'; 3: s:=s+' бубей'; 4: s:=s+' червяков';end;writeln(s)end.

Дама 12                             )))))))))))))))))))))))))))))))))))))))))))))))))))) 
 
                 .                                                   .