Найдите 100 первых простых чисел.

[Lovegood]

Написала программку, и где то ошиблась,не пойму где, подскажите, пожалуйста

var
   i,ki,n:byte;
begin
     ki:=0;
     while ki<=100 do
     i:=3;
     while (n mod i<>0) and (i<=n div 2) do 
     inc(i,2);
     if i>n div 2 then inc(ki);
     write(n);
end.

[warca]

переменной n присваивается где нибудь значение?

[Lovegood]

Нет наверное.