Necesito ayuda con un proyecto de Pascal. Se crea un programa que es un juego, se genera un texto aleatorio de 4 letras y el usuario tiene que intentar adivinarlas.
Tiene que salir un contador de las letras que acierta en la misma posición (eso lo tengo ok), y de las letras que acierta, pero están en otra posición a las del aleatorio.
¿Me podéis ayudar por favor?
Adjunto parte del código.
{REPETICION MAXIMO INTENTOS}
repeat
it2:=it2+1;
write('Intento ',it2,' de ',MAX_INTENTOS,'>> ');
{RECORRIDO DE LOS ARRAYS}
for it1:= 1 to LARGO_CODIGO do begin
read(arrayCodigoUsuario[it1]);
{CONDICIÓN PARA CONTADOR DE B}
bOk:=arrayCodigoUsuario[it1]=arrayCodigoSecreto[it1];
if bOk=true then begin
contadorB:=contadorB+1;
end;