Разработать функцию возведения в натуральную степень при помощи цикла.(Delphi)

[KalininGleb]

Доброго времени суток ! Помогите, пожалуйста, "докодить" программу . Все почти готово, все считает правильно кроме 8й и 9й степени в некоторых случаях.И , если в выводе убрать (j+1) вся таблица умножения сдвигается вверх. Должен быть какой-то другой способ, наверное

"Разработать функцию возведения в натуральную степень при помощи цикла.
Используя созданную функцию, найти и вывести на экран таблицу значений xn , где x изменяется в интервале от a до b с заданным шагом."

Код программы :

var a,b,c:integer;

Stepen:integer;

function Stepn(x: longint;y: longint): longint;
var i,rez:longint;
begin
rez:=1;
i:=1;
while (i<y) do begin
rez:=rez*x;
i:=i+1;
end;
result:=rez;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:longint;
begin

memo1.Clear;
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
c:=strtoint(Edit3.Text);
if c>b then ShowMessage('Error!')
else
begin
i:=a;
While (i<=b) do begin
  for j:=1 to 9 do
memo1.Lines.Add(inttostr(i)+'^'+inttostr(j)+'='+ ' ' +inttostr(Stepn(i,j)));
i:=i+c;
Memo1.Lines.Add('================');
end;
end;

end;

[KalininGleb]

Все , заработало. Нужно было тип данных на Extended поменять