Как найти первое двузначное число в массиве через while ?

While a[i]-10< 0 do i: =i+1

B: =10; x: =100; b> -1  ⇒ 10> -1 ⇒ true   x< 10  ⇒ 100< 10  ⇒ false     x = x div 8 +2 =    100 div 8 + 2 = 14   b = b-3 = 10-3 = 7  b> -1  ⇒ 7> -1 ⇒ true   x< 10  ⇒ 14< 10  ⇒ false   x  =  x div 8 +2 =    14 div 8 + 2 = 3   b  =  b-3 = 7-3 = 4  b> -1  ⇒ 4> -1 ⇒ true   x< 10  ⇒ 3< 10  ⇒ true; b = b-2 = 4-2 = 2   x  =  x div 8 +2 =    3 div 8 + 2 = 2   b  =  b-3 = 2-3 = -1 b> -1  ⇒ -1> -1 ⇒ false ответ: тело цикла выполнится 3 раза

22121 3 в квадрате   9                                             2 9 в квадрат     81                                         2 81 зачеркиваем цифру с право 8             1 8 в квадрат       64                                       2 64 зачеркиваем цифру с право   6           1 ответ   22121