SoloCodigo

Me piden que defina tipos para un registro con número y palo de naipe

alguien me recomienda algo mejor q lo siguiente?

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.

saludos y gracias!