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