Бьет ли 1 карта другую

В программе описаны типы:
Type Mast = (р, t, b, h); {пики, трефы, бубны, червы} Value = (v6, v7, v8, v9, vlO, vV, vD, vK, vT);
{шесть, семь, восемь, девять, десять, валет, дама,
король, туз}
Card = record {описание карты:}
m: Mast; {масть} v: Value {достоинство} end;
Написать программу, которая вводит две карты С1 и С2 и козырную масть КМ и проверяет, "бьет" ли карта С1 карту С2. Для этого описать логическую функцию Hit (CI, С2: Card; KM: Mast): Boolean

Добавлено через 2 часа 6 минут
вот что получилось
Program №7;
TYPE
str5 = string[6];
MAST = (P,T,B,H);
ZNACH = (V6,V7,V8,V9,V10,VV,VD,VK,VT);
const
Mast_STR : array[ord(P)..ord(H)] of str5 = ('Пик','Треф','Бубен','Червей');
ZNACH_STR : array[ord(V6)..ord(VT)] of str5 =
('6','7','8','9','10','Валет','Дама','Ко роль','ТУЗ');
TYPE
KARTA=RECORD
M:MAST;
Z:ZNACH;
END;
var
K1, K2 : KARTA;
KM : MAST;
KTemp : KARTA;
Koloda : array[1..36] of KARTA;
i,j,k : integer;
begin
randomize;
for i:=ord(P) to ord(H) do
for j:=ord(V6) to ord(VT) do
begin
Koloda[i*9+j+1].M := MAST(i);
Koloda[i*9+j+1].Z := ZNACH(j);
end;
for k:=1 to 1000 do
begin
i := Trunc(Random(36))+1;
j := Trunc(Random(36))+1;
if i<>j
then begin
KTemp := Koloda[i];
Koloda[i] := Koloda[j];
Koloda[j] := KTemp
end;
end;
K1 := Koloda[1];
K2 := Koloda[2];
WriteLn('Первая карта: ', ZNACH_STR[ord(K1.Z)],'-',Mast_STR[ord(K1.M)]);
WriteLn('Вторая карта: ', ZNACH_STR[ord(K2.Z)],'-',Mast_STR[ord(K2.M)]);

KM := MAST(trunc(Random(4)));
WriteLn('Козырная масть: ',Mast_STR[ord(KM)]);

if ((K1.M = K2.M) and (K1.Z > K1.Z)) or ((K1.M = KM) and (K2.M <> KM))
then
WriteLn('Карта1 бьёт карту 2')
else
WriteLn('Карта1 НЕ бьёт карту 2');

Readln;

end.

0