GPrimo

De nada! Qualquer coisa se eu poder ajudar, só falar! GPrimo

Bom, estou meio sem tempo agora, mas deu pra eu dar uma estudada no seu código! Eu fui modificando algumas coisas e como faz tempo que eu mexi com pascal, talvez eu tenha errado alguma coisa.. e eu não tenho como testar.. Esse é o código que deve funcionar: Program Pzim ;VARvet:array[1..10] of integer;c1,c2,en,x:integer;Begin for c1:=1 to 10 do begin //comandos writeln( 'slot', c1 ) ; readln( en ) ; x:=0; while c2<=10 do begin //comandos if ( en=vet[c2] ) then x:=1; if (( c2=10 ) And ( x=1 )) then begin writeln( 'este codigo ja existe, favor mudar' ) ; readln( en ); c2:= 1; end else c2:=c2+1 end; vet[c1]:=a; end;end. Eu mudei os nomes de algumas variáveis pois eu me perdi hehe Faz o teste e vê se realmente é isso que você deseja! Se você não entendeu só falar que eu explico o que eu fiz ai Quando eu estiver com mais tempo(hoje mesmo) e claro, se você quiser.. eu coloco comentários para você entender melhor o código! Espero ter ajudado! GPrimo

Não sei se é exatamente isso que você quer Mas você pode criar uma variável, que quando o usuário entrar com o código, você salva o valor nessa variável(ela será para verificar) Depois você coloca em um (for to do) onde ele verificará todos os vetores se existe alguma variável vetor com o mesmo que o usuário entrou! Espero ter ajudado! GPrimo