Exercice corrigé : manipulation des diviseurs d'un nombre

ENONCE

Ecrire un programme qui saisit un nombre X entier entre [3, 100]
et calculer la somme de tous ses diviseurs excepté lui même.
Dans le cas où cette somme est égale à N, on dit que N est un nombre
Parfait.

Exemple:
N = 28.
Somme des diviseurs de 28 excepté 28 est: 28.
28 est un nombre parfait.

N=10
Some des diviseurs de 10 excepté 10 est: 8.

Code:

    program ex04;
    uses wincrt;

      procedure Saisie(var X:integer) ;
    begin
        repeat
        write('un entier N = ');
        readln(X);
        until ( X in [3..100])
    end;

   
    procedure SommeDiv(var X:integer);
    var
    i,S:integer;
   
    begin
          S := 0;
          for i:=1 to X-1 do
            if ( X mod i=0) then
                S:= S + i;

          writeln('Somme des diviseurs de ',X,' excepté ',X,' est: ',S);

          if (S = X) then
            writeln(X, ' est un nombre parfait.');
    end;

var
    X :integer;
begin
  Saisie(X);
  SommeDiv(X);

end.