вычислить все числа до n которые равны сумме своих делителей (совершенные числа)//не могу найти ошибку в своей програме на паскале

[games_vandal]

задача
un numar natural se numeste numar perfect daca este egal cu suma divizorilor lui, in afara de el insusi. de exemplu 6 este numar perfect deoarece
6=1+2+3. sa se afle numerele perfecte mai mici decit numarul natural n.
перевод
мне нужно вычеслить все числа до n которые равны сумме своих делителей (совершенные числа). на пример 6=1+2+3
--------
я всеголишь ученик и вот что я сделал

program exemplu_25;
  var i,e,n:integer;    s:real;
    begin
     write('introdu n:' );   {введите н}     readln (n);

    s:=0; i:=n;
      while i<>0 do
               begin
                      dec(i);
                   for e:=i div 2 downto 1 do
                 begin
            if  i mod e=0
            then s:=s+e;
                end;
          if s=i then write(i,' este numar perfect'); {i,' является совершенным числом'} 
           end;

   end .

-----
но гдето есть ошибки- помогите найти их



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.