Из Паскаля в Си

[KariLex]

Помогите пожалуйста переписать код на чистый СИ

uses crt;
const s1:array[1..4] of string[6]=('пики','трефи','бубны','черви');
      s2:array[1..9] of string[6]=('6','7','8','9','10','валет','дама',
                                   'король','туз');
type mast=(pk,tr,bb,ch);
     dost=(k6,k7,k8,k9,k10,vl,dm,kr,tz);
     karta=record
           m:mast;
           d:dost;
           end;
           
function Kick(k1,k2:karta;km:mast):boolean;
var i:mast;
    j:dost;
begin
Kick:=((k1.m=km)and(k2.m<>km)) {первая -козырная, вторая нет}
or((k1.m=k2.m)and(k1.d>k2.d));{или одной масти и первая старше}
end;

var k1,k2:karta;
    km:mast;
    i,j:byte;
    s:string[6];
    f:boolean;
begin
clrscr;
f:=false;
repeat
writeln('Ввод масти первой карты');
readln(s);
i:=1;
while(i<=4)and not f do
if s=s1[i] then
 begin
  k1.m:=mast(i-1);
  f:=true;
 end
else i:=i+1;
if not f then writeln('Такой масти нет')
until f;
f:=false;
repeat
writeln('Введите достоинство 1ой карты ');
readln(s);
i:=1;
while(i<=9)and not f do
if s=s2[i] then
 begin
  k1.d:=dost(i-1);
  f:=true;
 end
else i:=i+1;
if not f then writeln('Такого достоинства нет')
until f;
f:=false;
repeat
writeln('Ввод масти 2ой карты');
readln(s);
i:=1;
while(i<=4) and not f do
if s=s1[i] then
 begin
  k2.m:=mast(i-1);
  f:=true;
 end
else i:=i+1;
if not f then writeln('Такой масти нет')
until f;
f:=false;
repeat
writeln('Введите достоинство 2ой карты');
readln(s);
i:=1;
while(i<=9)and not f do
if s=s2[i] then
 begin
  k2.d:=dost(i-1);
  f:=true;
 end
else i:=i+1;
if not f then writeln('Такого достоинства нет')
until f;
f:=false;
repeat
writeln('Ввод козырной масти');
readln(s);
i:=1;
while(i<=4)and not f do
if s=s1[i] then
 begin
  km:=mast(i-1);
  f:=true;
 end
else i:=i+1;
if not f then writeln('такой масти нет')
until f;
writeln('Бьет ли первая карта вторую?');
write(Kick(k1,k2,km));
readln
end.

[Alex11223]

Тут не бесплатное бюро переводов.
Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.