Записи. Бьет ли карта k1 карту k2

[StudeHt]

Здравствуйте, Господа эксперты! Помогите разобраться в следующей задаче:TYPE масть=(пик,трефы,бубны,червы);
достоинство=(шесть,семь,восемь,девя ть,десять,валет,дама,король,туз);
карта=RECORD
M: масть;
д: достоинство;
END;
Описать логическую функцию KICK(K1,K2,KM), проверяющую, "бьет" ли карта K1 карту K2, с учетом того, что масть KM является козырной
Нашел на форуме такую же задачу, но препод сказал что нужно переделать.. Вот у меня возник вопрос. Вот код:

procedure InputCard(var K:Card);
begin
  writeln('Введите масть ');
  readln(K.m);
  writeln('Введите достоинство ');
  readln(K.d);
end;

Выскакивает ошибка 64(Cannot Read or Write variables of this type). Подскажите чем это вызвано и как исправить. Заранее огромное спасибо!

[HoLToFF]

Переменные перечисляемыех типов не возможно вводить/выводить, используйте для чтения и вывода оператор case

[HoLToFF]

procedure InputCard(var K:Card);
st:string;
begin
  write('Введите масть ');
  readln(st);
     case st of
        'chervi': k.m:=червы;
        'bubi': k.m:=буби;
        'kresti': k.m:=крести;
        'trefi': k.m:=трефы;
      end;
  writeln('Введите достоинство ');
  readln(st);
      case st of
        'shest': k.d:=6;
        'sem': k.d:=7;
       ...................
        'tuz': k.d:=tuz;
      end;
end;

[StudeHt]

Извините, что так поздно отписываюсь (инет тупит(((). Ну вот у меня все равно не получается.. Мне нужно, чтобы процедура ввода карты и считывания данных была разделена на 3. Вот попытки, но они четны(преведенены 2 процедуры:ввод и считывание масти карты)

procedure InputCard;
var Kz:string;
begin
  writeln('Введите масть ');
  readln(Kz);
  writeln('Введите достоинство ');
  readln(Kz);
end;

procedure RecognitionColorCard(var K:Card);
var Kz:string;
begin
  case Kz of
    'пики':K.m:=Spades;
    'трефы':K.m:=Clubs;
    'бубны':K.m:=Diamonds;
    'червы':K.m:=Hearts;
  end;
end;

Я понимаю, что переменная Kz должна быть в списке фактических параметров в процедуре InputCard, но препод сказал, что это ввод карты и соответственно должна возвращаться карта, а не строка.. Так же выскакивает ошибка 39(Ordinal expression expected) на строчке case Kz of Помогите пожалуйста разобраться.

[HoLToFF]

Вот код более менее приемлемой для данной задачи процедуры чтения масти карты:

procedure RecognitionColorCard(var K:Card);
var Kz:string;
begin
  writeln('Введите масть ');
  readln(Kz);
  case Kz of
    'пики':K.m:=Spades;
    'трефы':K.m:=Clubs;
    'бубны':K.m:=Diamonds;
    'червы':K.m:=Hearts;
  end;
end;