Mi lehet a gond az alábbi pascal programmal?

program p1;

var x:array[1..1000]of integer;

be,i,vizsgalt:integer;

procedure olvas(a1:array of integer);

var i1:integer;

begin

i1:=1;

be:=0;

repeat

readln(a1[i1]);

inc(i1,be);

until a1[i1]=0;

end;

function prim(sum:integer):boolean;

var i2:integer;

begin

prim:=TRUE;

for i2:=2 to sum div 2 do

if sum mod i2=0 then

prim:=FALSE;

end;

function osszeg(a3:integer):integer;

var sum:integer;

begin

sum:=0;

while a3>9 do

begin

sum:=sum+a3 mod 10;

a3:=a3 div 10;

end;

end;

begin

olvas(x);

for i:=1 to be do

vizsgalt:=x[i];

if prim(osszeg(vizsgalt))=TRUE then

writeln(x[i]);

readln;

end.

futni fut, de nem akar kiirni