Почему то вылетает ошибка о делении на ноль

uses crt;
label one,two;
var
q,w,e,n,r:integer;
sisla:string;
function strg(aaa:integer): string;
var bbb:string;
begin
 str(aaa,bbb);
 strg:=bbb;
end;
begin
writeln('N:');
readln(n);
{
bx-timer1
cx-timer2
ax-otveti
 
}
asm
 mov bx,0         {bx это счетсик 1 цикла}
 one:                 {repeat}
  inc bx             {счетчик увеличивается на1}
  mov ax,n        {ax-у присваевается число N}
  xor dx,dx        {обнуляю dx}
  div bx              {проверяю с остатком ли число получившееся при n/текущий счетчик} 
  test dx,0       {если остаток не 0 т. е. число bx не является множетелем n, то обратно на метку one}
  JnE one    
{а если является то:}
  mov cx,0   {cx это счетчик для второго цикла} {этот цикл проверяет, является ли делитедь n "простым" числом}
  mov ax,bx  
  two:            {repeat}
   inc cx         {счетчик увеличивается на 1}
   push ax      {запоминаются ax и cx}
   push cx
   mov cx,2     {в cx кладется 2}
   xor dx,dx    {обнуляю dx}
   div cx          {делю проверяемый делитель на 2}
   pop ax        {вывожу из память ax и cx}
   pop cx
   CMP dx,0   {если разделилось с остатком то число простое}
   JE one
  CMP cx,n   {если счетчик_2 не достиг лимита то обратно, в начало 2-го цикла} 
  JnE two
  mov q,bx    {в q переменную которая и делитель n и простое число}
  push ax      {сохраняю регистры (pushad - popad почему то не работают)}
  push bx
  push cx
  push dx
  end;
   sisla:=sisla+strg(q); {прибавляю к числам тот делитель}
  asm
  pop ax
  pop bx
  pop cx
  pop dx
 CMP bx,n {если счетчик_1 не достиг лимита, то в начало цикла}
 JnE one
end;
writeln(sisla);
readln;
end.