Задача Числа Армстронга (pascal)

[piton89090]

Числа Армстронга. Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю степень, где N - количество цифр в числе, равна самому числу. Например: 153=1*1*1+3*3*3+5*5*5=153. Найдите все трехзначные и четырехзначные числа Армстронга.
Вот мой вариант:

var x,a,b,c,d: integer;
 begin
  while x<9999 do
   begin
    x:=x+1;
    if ((x div 100)>9) and ((x div 100)<100) then
     begin
       a:=x div 1000;
       b:=(x div 100)-a*10;
       c:=(x div 10)-(a*100+b*10);
       d:=x-(a*1000+b*100+c*10);
       if (a*a*a*a)+(b*b*b*b)+(c*c*c*c)+(d*d*d*d)=(x) then writeln(x);
     end;
    if ((x div 100)>(0)) and ((x div 100)<(10)) then
     begin
       a:=x div 100;
       b:=(x div 10)-a*10;
       c:=x -(a*100+b*10);
       if (a*a*a)+(b*b*b)+(c*c*c)=(x) then writeln(x);
     end;
   end;
 end.

Объясните, пожалуйста, почему программа не работает. Можно ли сократить ее?
P.S.
учусь в 10 классе

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[piton89090]

Все заработало!!!! Спасибо!!!