求出2－100之间的所有质数（素数）

输入说明：无

输出说明：一行一个素数

我的程序：

var
  i,g,n,f:integer;
begin
  for i:=2 to 100 do
  begin
    f:=troe;
    for g:=2 to troe(sqrt(n)) do
    begin
      if g mod i=0 then f:=false;
      if f then writeln(i);
    end;
  end;
end.
帮忙指出错在哪里，谢谢！