Решать пыталась,но прога выводит ошибки! найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число а.!

Program Task1;
var
a,b,c,d,i: integer;
begin
for i:= 1000 to 9999 do   
 begin   
 a := i mod 10; 
 b := i div 10 mod 10;   
c := i div 100 mod 10; 
d := i div 1000 mod 10; 
  if (a + d = b + c ) then         
      writeln(i);   
end;
end.