Pascal 为什么会出现NZEC错误？

我在使用Pascal，我不明白为什么在提交问题时会出现NZEC（非零退出代码）错误。在我的电脑上，它工作得很好。你能给我你的意见吗

program super_factor_sum;
var k,i,j,s:longint;   f,g:text;

function prim(x:integer):boolean; var d:longint;
begin
prim:=true;
for d:=2 to x div 2 do if x mod d=0 then prim:=false;
end;

begin assign(f,'input.txt'); reset(f); assign(g,'output.txt'); rewrite(g);
while not eof(f) do
begin readln(f,k);  s:=0;  i:=2;
      while (k<>1) or (i<=k) do
            begin if (prim(i)) and (k mod i=0) then
                       begin j:=0;
                             repeat k:=k div i; j:=j+1;
                             until k mod i<>0;
                             s:=s+i*j; i:=i+1;
                       end
                             else i:=i+1;
            end;
      write(s);   writeln(g,s);
end;
close(f);  close(g);
end.

program super\u factor\u sum；
变量k，i，j，s:longint；f、 g：文本；
函数prim（x:integer）：布尔型；变量d：长型；
开始
prim:=真；
对于d:=2到x div 2 do，如果x mod d=0，则prim:=false；
结束；
开始赋值（f，'input.txt'）；重置（f）；赋值（g，'output.txt'）；重写（g）；
而不是eof（f）呢
开始readln（f，k）；s:=0；i:=2；
而（k1）或（i

“始终必须测试模块名，入口点应为函数main。例如，编译后，它应作为tested:main（）运行。”
将其提交到何处？此Sphere Online Judge（SPOJ）是否在线相关的？你能补充一些信息吗，比如你在哪里提交它，你用什么Pascal版本编译它，以及“提交”系统的相应版本？