Возведение числа а, введенного с клавиатуры, в степень n

Program Stp:
  var P: real:    { Переменная, которая хранит результат очередного шага }
      N: integer;   { Показатель степени }
      i: integer;   { Счетчик числа шагов }
      A: real;    { Основание степени }
begin
  write('Введите основание степени:');
  readln(A);
  write('Введите показатель степени:');
  readln(N);
  i:=0;   { 0-й шаг }
  Р:=1;    { 2⁰=1 }
  while i< abs(N) do   { Показатель может быть отрицательным, поэтому используем для анализа его абсолютную величину. Если показатель N=0, то в тело цикла не попадаем ни разу, так как 0-й шаг уже сделан }
    begin
      i:=i+l;   { Увеличиваем i на 1,то есть i теперь равно номеру текущего шага }
      Р:=Р*А   { Получаем результат i- го шага, то есть A^i }
    end;
{ В переменной Р на данный момент получен результат для положительного N }
  if N < 0 then   { Если показатель N - отрицательный, то результат должен иметь обратную величину }
  Р:=1/Р;
  writeln('Результат=',Р;6:3);
  readln
end.