求所有三位数中，他们个数字之和能被7整除的这些三位数之和是多少？（Pascal)

这是一个基础程序
program abc;
var i:integer;
a,s:integer;
begin
for i:=100 to 999 do begin
a:=i div 100; //百位//
a:=a + (i mod 10);//个位//
a:=a + (i mod 100) div 10;//十位//
if a mod 7 =0 then begin write(i:4);s:=s+i;end;
end;
writeln;
write(s);
readln;
end.