Ошибка приравнивания типов - PascalABC.NET

var
  i, n, c: integer;
  a, b: real;
 
procedure reader;
var
  i, n: integer;
  a, b: real;
begin
  Writeln('Основание - ');
  Readln(a);
  Writeln('Показатель степени');
  Readln(n);
end;
 
procedure stepen_ne_otr;
var
  i, n: integer;
  a, b: real;
begin
  b := a;
  for i := 2 to n do 
    a := a * b;
  Writeln('Ответ: ', a);
end;
 
procedure stepen_null;
begin
  Writeln('Ответ: 1');
end;
 
procedure stepen_otr;
var
  i, n: integer;
  a, b: real;
begin
  b := a;
  n := abs(n);
  for i := 2 to n do
    a := a * b;
  Writeln('Ответ: ', 1 / a);
end;
 
procedure osn_otr_stepen_chetn;
var
  i, n: integer;
  a, b: real;
begin
  a := abs(a);
  b := a;
  for i := 2 to n do 
    a := a * b;
  Writeln('Ответ: ', abs(a));
end;
 
procedure osn_otr_stepen_nechetn;
var
  i, n: integer;
  a, b: real;
begin
  a := abs(a);
  b := a;
  for i := 2 to n do 
    a := a * b;
  Writeln('Ответ: ', -a);
end;
 
begin
  c := n mod 2;
  if n > 0 then stepen_ne_otr;
  if n < 0 then stepen_otr;
  if a < 0 and c = 0 then osn_otr_stepen_chetn;
  if a < 0 and c <> 0 then osn_otr_stepen_nechetn;
end.