Напишите программку, которая обретает все числа Армстронга из спектра от A

program a_number;
var n1, n2, k, s, n, i: integer;
//n1, n2 - пределы поиска;
//i - параметр цикла и проверяемое число;
//k - копия числа i (n - изменяется в цикле, i - непрерывно в течение 1-го цикла);
//n - число цифр в числе и показатель степени;
//s - cумма цифр.
begin
write(Введите последние числа интервала через пробел: );
Readln(n1, n2);
Writeln(Число     Ступень);
for i:= n1 to n2 do
begin
k:= i;
repeat
s:= s + k mod 10;
n:= n + 1;
k:= k div 10
until k = 0;
if power (s, n) = i then writeln(i:6, n:6);
n:= 0;
s:= 0
end
end.