Составить программу которая подсчитывает количество трехзначных чисел кратных 7

Var a: integer;
begin
a:=0;
for var  i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.