Помогите)) Дано вещественное...

Помогите)) Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 доN.

 

var
  A, r:real;
  N, s:integer;
begin
  s := 1;
  write('a = '); readln(a);
  write('n = '); readln(n);
  r := a;
  while r <= n do
  begin
    writeln(s);
    inc(s);
    r := r * a;
  end;
  if a > n then
    writeln(a , ' в любой степени >= 1 будет больше числа ', n);
end.