Составьте программу, которая считает числа счастливых билетов, у которых сумма первых трех чисел и сумма последних трех чисел равна 13.(Счастливый билет-сумма первых трех чисел равна сумме трех последних). Помогите решить, пожалуйста. Pascal. Нужно решить через "Repit, until".

Var   S,S1,i:byte;   A:longint;BeginWrite('Введите номер билета: ');ReadLn(A);S:=0;S1:=0;i:=1;RepeatS:=S+A mod 10;A:=A div 10;i:=i+1Until i>3;RepeatS1:=S1+A mod 10;A:=A div 10;i:=i+1Until i>6;if S<>S1 then WriteLn('Билет не является счастливым')else WriteLn('Счастливый билет!!!')End.