Счастливый билет

uses system;

var ticket:string;
    temp,left,right:integer;

Begin
Repeat
  Console.Write('Введите номер билета: ');
  Ticket:=Console.ReadLine();
  if Length(Ticket) <> 6 then Console.WriteLine('Ошибка: Неверное значение. Повторите ввод...')
     else
         Begin
         Temp:=StrToInt(LeftStr(Ticket,3));
         Left:=0;
         While Temp <> 0 do
               Begin
               Left+=Temp mod 10;
               Temp:=Temp div 10;
               end;

         Temp:=StrToInt(RightStr(Ticket,3));
         Right:=0;
         While Temp <> 0 do
               Begin
               Right+=Temp mod 10;
               Temp:=Temp div 10;
               end;

         if Left = Right then Console.WriteLine('Счастливый билет :)')
                         else Console.WriteLine('Билет не счастливый :(');
         end;
Until Length(Ticket) = 6;
Console.ReadLine();
end.