Pascal.. bug Repeat.. Until?

Bonjour,

Bonjour,

Je me demande pourquoi le foo1 arrête de faire "Readln(X)" après 3 ou 4 tentatives où l'entier que je tape est strictement supérieur à 100 (et inférieur a 32000).

program foo1;  
uses wincrt;  
var x:integer;  
begin  
repeat  
readln(X);  
until (X in [1..100]);  
end. 

Celui-là, par contre , marche à merveille.

program foo2;  
uses wincrt;  
var x:integer;  
begin  
repeat  
readln(X);  
until (X>0) and (X<=100);  
end. 

Mais notre prof d'info a dit que les deux écritures sont équivalentes si X est entier!! alors bug ou quoi???
(Note: Je suis sous windows 7 -32 bit et TPW 1.5)

Merci!