Язык - паскаль. у меня по какой-то причине отрицательные числа не считаются.

Var a: array[1..10000] of integer; i,nod,nok,k,n: integer; begin write('n = '); readln(n); write('введите числа (',n,' шт.): '); for i: = 1 to n do       read(a[i]); {поиск нок} nok: =abs(a[1]); for i: = 2 to n do       if abs(a[i])< nok then nok: =abs(a[i]); if nok = 0 then nok: =1; repeat k: =0; for i: = 1 to n do       if a[i] mod nok = 0 then k: =k+1; nok: =nok-1; until k=n; writeln('nok = ',nok+1); {поиск нод} nod: =a[1]; for i: = 2 to n do       if abs(a[i])> nod then nod: =a[i]; repeat k: =0; for i: = 1 to n do       if nod mod a[i] = 0 then k: =k+1; nod: =nod+1; until k=n; writeln('nod = ',nod-1) end.

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 раза