Операторы цикла

[AlexProg]

Сумма делителей числа делится на сумму его цифр......посмотрите где ошибка.....или я просто что то напутал))зарание спасибо!

uses
  SysUtils;

var x,m,n,a,s,i,y,p:integer;
 begin
     writeln('nachalo otrezka');
     readln(m);
     writeln('konec otrezka');
     readln(n);
     writeln('vvedite chislo');
     readln( a ); x:=a;
     s:=0;
     while ( x <> 0 ) do begin
     s := s + (x mod 10);
     x := x div 10;
     end;
     writeln( 'suma cifr chisla ',a,' = ', s );
     y:=0;
     for i:=1 to n do
     if (n mod i)=0 then y:=y+1;
     readln(y);
     p:=y/s;
     readln(p);
     end.