Почему не работает программа? В любом случае выходит, что билет не счастливый. Посмотрите,очень срочно,спасибо.
program primer ;
var x,i,h1,h2,h3,h4,h5,h6,s1,s2 : integer ;
begin  
Write (' Введите номер билета ');  
readln (x) ;  
h1:= x div 100000 ;  
h2:= x mod 100000 div 100000 ;  
h3:= x mod 100000 div 10000 ; 
 h4:= x mod 100000 div 1000 ; 
 h5:= x mod 100000 div 100 ; 
 h6:= x mod 100000 div 10 ; 
 s1:= h1+h2+h3 ;  
s2:= h4+h5+h6 ; 
if s1=s2 then writeln (' билет счастливый ') 
else writeln (' билет несчастливый '); 
readln ;
end.