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

[adr]

Задание: Аналог с билетиками в автобусах. Пользователь вводит 6-ти значное число.
Требования: Вычислить является ли билетик счастливым, если нет, то показать следующий счастливый.


все что мне пришло в голову по поводу вычисления следующего счастливого, то это цикл, и вот собственно код:

var
  a,b,c,d,e,f,g,h,i,j,k,s1,s2,ch:longint;
begin
  writeln('Введите номер билетика*');
  readln(a);
  if (a<100000) or (a>999999) then
    exit;
    b:=a div 100000;
    c:=a mod 100000;
    d:=c div 10000;
    e:=c mod 10000;
    f:=e div 1000
    g:=e mod 1000;
    s1:=b+d+f;
    h:=g div 100;
    i:=g mod 100;
    j:=i div 10;
    k:=i mod 10;
    s2:=h+j+k;
    if s1=s2 then
    writeln('Вам повезло')
  else
      begin
        writeln('Вам не повезло');
        repeat
          a:=a+1;
          b:=a div 100000;
          c:=a mod 100000;
          d:=c div 10000;
          e:=c mod 10000;
          f:=e div 1000;
          g:=e mod 1000;
          s1:=b+d+f;
          h:=g div 100;
          i:=g mod 100;
          j:=i div 10;
          k:=i mod 10;
          s2:=h+j+k;
        until s1=s2;
        ch:=a;
        writeln('Следующий счастливый ', ch);
      end;
  readln;
end.

НО преподаватель сказал, что нужно без цикла, а только используя условия. Как это можно сделать???