Помогите, Пожалуйста.
Числа Армстронга. Натуральное число называется числом Арм., если сумма цифр числа, возведенных в n-ую степень, где n- кол-во цифр в числе, равна самому себе ( 153=1^3+5^3+3^3). Найдите все трехзначные и четырехзначные числа Арм. (pascal)

var a,a_2,n,j: integer;var  i: array [0..10] of real;var sum: real;beginwrite('Числа Амстронга: ');for a:=100 to 9999 dobeginn:=0;sum:=0;a_2:=a;while a_2<>0 dobegini[n]:=a_2 mod 10;n+=1;a_2:=a_2 div 10;end;for j:=0 to n-1 dosum:=power(i[j],n)+sum;if (sum = a) thenwrite(a,' ');end;end.