Паскаль: найти сумму и количество всех трехзначных чисел, кратных 100

Var
 i,k,sum:Integer;
 Begin
  for i:=1 to 999 do
   begin
    if (i mod 100 =0) then
     begin
      Inc(k);
      sum:=sum+i;
     end;
  end;
  Writeln('Количество = ',k);
  Writeln('Сумма  = ',sum);
  end.