Pues así entocnes no resuelvo nada, dado que ya intente esta mañana meter un procedure por bloke, y aun así solo funcionaban los 2 primeros, por eso pido ke me escribieseis como pasariais vosotros los 3 restantes.

No veo otra forma de que podais ayudarme, y tampoco hay que escribir mucho...

Todo lo que as sugerido ya lo he intentado esta mañana.

Esto te dara una idea de como hacerlo

Código Delphi [-]
Procedure InicioJugada(NomJugador:String;Dado:TValorDados;Jugador:TMano);
   Begin
     writeln(NomJugador);
     readln;
     LeeDados(Dado);
     LeeMano(Dado,Jugador);
     EscribeMano(Jugador);
   End;