По заданному номеру номеру масти м и номеру достоинства карты к определить полное название карты

var
n,x,m:integer;
z,q:string;
begin
  readln(m,n);
  {проверка масти}
  if n>4 then begin
    writeln('osibka');
    exit;
  end else  begin
    if m=1 then z:='tref';
    if m=2 then z:='byben';
    if m=3 then z:='chervei';
    if m=4 then z:='pik';
 end;
 {проверка достоинства}
  if (m>14) or (m<6) then begin
  writeln('osibka');
  exit;
  end else begin
  if n=6 then q:='shesterka';
  if n=7 then q:='semerka';
  if n=8 then q:='vosmerka';
  if n=9 then q:='devatka';
  if n=10 then q:='desatka'; 
  if n=11 then q:='valet';
  if n=12 then q:='dama';
  if n=13 then q:='korol';
  if n=14 then q:='tuz';
  end;
  writeln(q,' ',z);
end.

uses crt;
var m:1..4;
    n:6..14;
    s:string;
begin
clrscr;
repeat
write('Введите номер карты в колоде от 6 до 14 n=');
readln(n);
until n in [6..14];
repeat
write('Введите номер масти карты (1..4) m=');
readln(m);
until m in [1..4];
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;
write(s);
readln
end.