Ассемблерная вставка

[panter]

Задание: определить является ли заданное число простым. Программа работает не правильно с асемблерной вставкой. Явных ошибок во вставке не вижу. Может быть вы увидете? заранее спасибо
Среда: Virtual Pascal

Program aaa;
var n,i:integer;
f:boolean;
begin
Writeln('введите число');
readln(n);


//f:=false;
asm
     mov Byte Ptr f,0
//for i:=2 to round(sqrt(n)) do
     movsx eax,Word Ptr n
     mov [ebp-4],eax
     fild DWord Ptr [ebp-4]
     fsqrt
     sub esp,8
     mov si,ax
     mov Word Ptr i,2
     jmp @n1
//if n mod i=0 then
  @n3:   movsx eax,Word Ptr n
     movsx ecx,Word Ptr i
     cdq
     idiv ecx
     test edx,edx
     jne @n2
//f:=true;
     mov Byte Ptr f,1
  @n2:   inc Word Ptr i
  @n1:   cmp si,i
     jge @n3

end;

if f then writeln('составное') else writeln ('простое');
readln;
end.

[DiemonStar]

mov [ebp-4],eax

а куда это вы здесь адресуетесь?) особенно если учесть, что стек в данный момент пуст...

[f.hump]

f: integer;

asm
     MOV edx, 1
     MOV ebx, [n]
     FILD DWORD PTR [n]
     FSQRT
     FISTP DWORD PTR [n]

     MOV ecx, [n]

align 16     
@n1:
     CMP ecx, 2
     JB @n2

     MOV eax, ebx
     XOR edx, edx
     DIV ecx
     
     SUB ecx, 1
     AND edx, edx
     JNZ @n1

@n2:
     MOV [f], edx

end;

if (f=0) then writeln('составное') else writeln ('простое');

[panter]

Спасибо большое, задачка решена))