program palo_diamante;
uses
crt;
type
rango = 1..13;
vector=array[rango] of string;
diamantes = record
vec_diamantes:vector;
end;
var
palo_diamantes:diamantes;
i:byte;
begin
clrscr;
with palo_diamantes do
begin
vec_diamantes[1]:='As';
vec_diamantes[2]:='2';
vec_diamantes[3]:='3';
vec_diamantes[4]:='4';
vec_diamantes[5]:='5';
vec_diamantes[6]:='6';
vec_diamantes[7]:='7';
vec_diamantes[8]:='8';
vec_diamantes[9]:='9';
vec_diamantes[10]:='10';
vec_diamantes[11]:='Valet';
vec_diamantes[12]:='Dame';
vec_diamantes[13]:='Roi';
end;
writeln('Palo de diamantes: ');
writeln('---- -- --------- ');
with palo_diamantes do
for i:=1 to 13 do
begin
write('Carta Nº ',i,': ');
writeln(vec_diamantes,' de Diamantes');
end;
readln;
end.