delphi 有关求素数的问题想探讨下

[虎滴小猪猪]

{计算并输出300至500以内所有素数（即质数）中最大的前10个数之和sum
与300至500以内所有素数的个数count,
并将结果输出到文件mydata.dat中.}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,count,sum:integer;
begin
count := 0;
sum := 0;
for i := 300 to 500 do
begin
k := 0;
for j := 2 to i - 1 do
begin
if i Div j * j = i then
begin
Inc(K);
Break;
end;
end;
if k = 0 then
begin
Inc(count);
if count <= 10 then
sum := sum + i;
end;
end;
ShowMessage('素数个数：count='+inttostr(count)+#13#10+#13#10+'前10个素数之和：sum='+ IntToStr(sum));
end;

我的程序写的对吗？我觉得这样效率不高，谁有更好的方法，希望能一起探讨。
还有怎样写入.dat文件啊？我不会

[Storm2008]

http://cache.baidu.com/c?m=9d78d513d9d430aa4f9ae5690c66c0176e43f7642ba1d0020fa48448e2732a315011e2ac57270777d9d27d1716df4f4b9ef12173471450b48cb9825dacbf8558299f2745676c835663d40eaebb5155c437e65efeae69f0caf625e7afc5d2af4325c844737897808f4d7360de28b04a3eb9e0df0a025e63a7f07520ba4e775ec67716eb16eee0453f5adeeb8b0b1281708b611395ab28b13812a812a21f112345a05bb17f0b606f&p=9b759a44d6b159f60be293255c56&user=baidu

看看这个