[Onti]

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;