Перевести код программы из Pascal в Delphi 7 - Delphi

[ParkerVans]

Добрый день! Необходимо перевести код из Pascal в Delphi 7.

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('Введите достоинство первой карты (6,7,8,9,10,валет,дама, король,туз)');
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('Введите масть второй карты (пики,трефи,бубны,червы)');
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('Введите достоинство второй карты (6,7,8,9,10,валет,дама, король,туз)');
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.

[p51x]

А вы не пробовали скомпилировать этот код в D7? Ну, естественно, выкинув крт.

[digitalis]

Сообщение от p51x

Ну, естественно, выкинув крт.

И все readln, writeln
Это можно сделать совсем красиво: загрузить .bmp'шку со всей колодой и тыркать мышью на нужные карты.
И вообще - для такого примитивного действа - еще прогу строгать ?