Buenas
Estoy haciendo una simulacion del juego de cartas "burro" en pascal y soy incapaz de crear la baraja...
![[buuuaaaa]](/images/smilies/nuevos/triste_ani3.gif "a lágrima viva")
Me pierdo en las declaraciones de el lenguaje. Esto es lo que he escrito hasta ahora:
program simulacion_burro;
uses
wincrt;
Type tbaraja=array[1..4,1..10] of string;
tcartas=
var baraja:tbaraja;
procedure crearbaraja(var b:tbaraja);
begin
tbaraja[1,1]:=as_oros;
tbaraja[2,1]:=as_copas;
tbaraja[3,1]:=as_espadas;
tbaraja[4,1]:=as_bastos;
tbaraja[1,2]:=2_oros;
tbaraja[2,2]:=2_copas;
tbaraja[3,2]:=2_espadas;
tbaraja[4,2]:=2_bastos;
tbaraja[1,3]:=3_oros;
tbaraja[2,3]:=3_copas;
tbaraja[3,3]:=3_espadas;
tbaraja[4,3]:=3_bastos;
tbaraja[1,4]:=4_oros;
tbaraja[2,4]:=4_copas;
tbaraja[3,4]:=4_espadas;
tbaraja[4,4]:=4_bastos;
tbaraja[1,5]:=5_oros;
tbaraja[2,5]:=5_copas;
tbaraja[3,5]:=5_espadas;
tbaraja[4,5]:=5_bastos;
tbaraja[1,6]:=6_oros;
tbaraja[2,6]:=6_copas;
tbaraja[3,6]:=6_espadas;
tbaraja[4,6]:=6_bastos;
tbaraja[1,7]:=7_oros;
tbaraja[2,7]:=7_copas;
tbaraja[3,7]:=7_espadas;
tbaraja[4,7]:=7_bastos;
tbaraja[1,8]:=sota_oros;
tbaraja[2,8]:=sota_copas;
tbaraja[3,8]:=sota_espadas;
tbaraja[4,8]:=sota_bastos;
tbaraja[1,9]:=caballo_oros;
tbaraja[2,9]:=caballo_copas;
tbaraja[3,9]:=caballo_espadas;
tbaraja[4,9]:=caballo_bastos;
tbaraja[1,10]:=rey_oros;
tbaraja[2,10]:=rey_copas;
tbaraja[3,10]:=rey_espadas;
tbaraja[4,10]:=rey_bastos;
end;
si aguien me puede echar una mano se lo agradeceria ya que estoy bastante perdido y tengo que entregarla para la semana que viene.
Gracias de antemano
