const m=15;
var
  Form1: TForm1;
  a:array[1..m]of integer;
implementation

{$R *.dfm}
function step_N(a,n:integer):boolean;
var k:integer;
begin
k:=1;
while k<a do k:=k*n;
step_N:=k=a;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
Label3.Caption:='';
for i:=1 to m do
 begin
  a[i]:=4+random(97);
  Label3.Caption:=Label3.Caption+' '+inttostr(a[i]);
 end;
ShowMessage('Введите степень');
end;

procedure TForm1.Button2Click(Sender: TObject);
var n,k,i:integer;
    b:array[1..m] of  integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<2) then
 begin
  ShowMessage('Введите степень целое число больше 1');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
k:=0;
for i:=1 to m do
if step_N(a[i],n) then
 begin
  k:=k+1;
  b[k]:=a[i];
 end;
if k=0 then Label4.Caption:='Степеней числа '+inttostr(n)+' нет'
else
 begin
  Label4.Caption:='Степени числа '+inttostr(n)+' есть это:';
  for i:=1 to k do
  Label4.Caption:=Label4.Caption+' '+inttostr(b[i]);
 end;

end;