Soma Multiplos 5 e 7 Certo

program SomaMultiplos5e7Certo;
uses crt;
     var
       n   : integer;
       i   : integer;
       x   : integer;
       soma: integer;
begin
       i := 0;
        for i := 1 to 10000 do
        if (i mod 5 = 0) then
        begin
        n := i + n;
        end
         else
         if (i mod 7 = 0) then
         begin
         x := i + x;
         end;
         soma := (n + x);
           writeln( n:6,' ', 'Divisiveis por 5 ');
           writeln();
          writeln( x:6,' ', 'Divisiveis por 7 ');
          writeln();
         writeln(' Soma dos Multiplos de 5 e 7 entre 0 e 10.000 he : ', soma);

 readkey;
end.