Хелп! На промежутке (1000 - 9999) отыскать все обыкновенные числа, каждое

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

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

var i,j,k,a,c,a2,c2,a3,a4: integer;
begin
for i:= 1000 to 9999 do
begin
if i mod 2 lt;gt; 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.