Pb de prog avec mastermind en turbopascal

Salut.
Faudrait donner quelques détails, là .....
Sûr qu'il y a des gens qui sont prêts à t'aider, mais à quoi ?
T'en es où ?
A+

-=O(_BmV_)O=-    
      ||       || 

Le dernier que j'ai fait était en python je crois ....
ensuite j'ai fait un snake ;-)

Be en fait voici mon prog qui ne marche pa bien avec turbo pascal 5.5 et 7.0 :

Program Mastermind;
uses crt;
var n,np,i,result1,result2,result3,result4 : integer ;
Begin
ClrScr;
Randomize;
i:=1;
N:=1498;
Writeln('Entre une proposition de quatre chiffres');
Readln(np);
While np<>n do
Begin
If (Np div 1000)<>(n div 1000) then
Begin
Result1:=0;
If ((Np div 100) mod 10)<>((n div 100) mod 10) then
Begin
Result2:=0;
If ((Np div 10) mod 10)<>((n div 10) mod 10) then
Begin
Result3:=0;
If (np mod 10)<>(n mod 10) then Result4:=0
else Result4:=1
End
else Result3:=1
End else Result2:=1
End
else Result1:=1;
I:=I+1;
Writeln(Result1,Result2,Result3,Result4);
Writeln('entrer une proposition');
Read(np)
End;
If np=n then writeln('vous avez trouv‚ en : ',i,' coups');
Readln
End.

Voila le topo. Je voi pa vrement keski kloch...mai bon!
Merci pour vos conseils.