Определить, счастливый ли билетик. с 2 массивов. принцип такой: на билете 6 цифр. если сумма первых трех будет равна сумме следующих трех, то билет-счастливый.

var  
s: string; 
 i, a, b, c, f: integer; 
 begin  
writeln('Номер билета?'); 
 readln(s); 
   for i := 1 to 3 do  
begin    
val(s[i], a, f);  
  b := b + a;  
end;   
 for i := 4 to 6 do  
begin    
val(s[i], a, f);   
 c := c + a;  
end;   
 if c = b then writeln('Билет счастливый!')   ;
else writeln('Билет НЕ счастливый!');  
readln ;
end.
Вроде так