Ошибка деления на ноль

program a1;
                                           var M,n,n1,n0:integer;
                                           i,s1,j:real;
                                           k,s,x:real;
                                           Begin
                                           writeln('введите M');
                                           readln(m);
 
                                           for n:=1 to m do
 
                                             begin
                                             s:=0;
                                           s1:=0;
                                             n1:=n;
                                             while n1>0 do
                                                  begin
                                                  n1:=n1 div 10;
                                                  s:=s+1;
                                                  writeln(n1,' ',s);
                                                  end;
 
                                              { for n:=1 to m do
                                                 begin          }
 
                                             n0:=n ;
 
                                             while n0>0 do
                                                 begin
                                                 k:=n0 mod 10;
                                                 j:=exp(s*ln(k));
                                                 n0:=n0 div 10;
                                                 s1:=s1+j;
                                                 writeln(k,' ',j,' ',n0,' ',s1,' ',n);
                                                 end;
 
                                            if s1=n then
 
                                                 writeln('n=',s1);
 
                                                 end;
 
                                        end.