Деление на ноль

[LLIALLIJIbIK]

Подскажите, почему в данном случае ошибка Floating point division by zero

var
n:integer;
i:real;

i:=5;
n:=0;
while i<100 do
begin
n:=n+1;
Frequency[n]:=i;
i:=i+0.001;
end;
for n:=1 to 100000 do
begin
ff1:=2*pi*Frequency[n]*Mei;
ff2:=(power(fp,3)*Me)/Frequency[n]; // здесь
if abs(ff2-ff1)<=0.001 then begin
FF:=Frequency[n];
break;
end;
end;

[Stilet]

Еще раз кросспост сделаешь - отправлю в бан!