Найти все трехзначные числа, кратные семи и у которых сумма цифр также кратна семи — Pascal(Паскаль)

program treh;

function Digit3Sum(i: integer): integer;
begin
  Digit3Sum := (i mod 10) + ((i div 10) mod 10) + (i div 100);
end;

var
  i: integer;

begin
  for i := 100 to 999 do
    if ((i mod 7) = 0) and ((Digit3Sum(i) mod 7) = 0) then
      Write(i:4);
  WriteLn();
  ReadLn();

end.

var
 i:integer;
begin
 for i:= 100 to 999 do
 if (i mod 7 = 0) and (((i mod 10 + ((i div 10) mod 10) + i div 100) mod 7) = 0) then write(i,' ');
end.