Хелп!
На интервале (1000 - 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр в записи этого числа равна сумме третей и четвертой.

Вот моя программа, которая почему-то ни одного числа не нашла :\ В чем моя ошибка?

var i,j,k,a,c,a2,c2,a3,a4: integer;
begin
for i:= 1000 to 9999 do
begin
if i mod 2 <> 0 then begin

for j:= 1 to (i div 2) do
if i mod j=0 then
inc (k);

if k=2 then
begin
a:= i mod 10;
c:= i div 10;
a2:= c mod 10;
c2:= c div 10;
a3:= c2 mod 10;
a4:= c2 div 10;
if (a+a2) = (a3+a4) then write (i,' ');
end;
end;
end;
end.

var i,j,k,first,second: integer; priz: boolean;begin for i:=1000 to 9999 do begin j:=2; priz:=true; while (j <= (i div 2)) do begin if ((i mod j)=0) then begin priz:=false; j:=i; end else j:=j+1; end; if (priz) then begin first:=0; second:=0; j:=i; for k:=1 to 4 do begin if k<=2 then first:=first+(j mod 10) else second:=second+(j mod 10); j:=j div 10; end;

Продолжение, все не вошло for k:=1 to 4 do begin if k<=2 then first:=first+(j mod 10) else second:=second+(j mod 10); j:=j div 10; end; if first=second then writeln('число = ',i); end; end;end.