Ошибка при вычислении степени через логарифм (Delphi)

[ВДПУ]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var b,c:integer;
  rez:real;
function step (a,k:integer):integer;
var i:integer;
s:integer;
begin
s:=1;
begin
for i:=1 to k do
if k>0 then s:=s*a else
s:=(exp((k+1)*ln(a)))/a;
end;
step:=s;
end;
begin
  write('Vvedit chuslo');
  readln(b);
  write('Vvedit stepin');
  readln(c);
   rez:=step(b,c);
   write(rez:5:2);
   readln;
end.

[QunneD]

В чем заключается проблема то, уважаемый? Подробнее опишите что Вам надо, и что не получается.

[ВДПУ]

s:=(exp((k+1)*ln(a)))/a;

в етой строке ошибка! Но как исправить не знаю!

[Mad_Cat]

исправь на

s:double;

function step (a,k:integer):double;

[[CODER]]

...............................

[ВДПУ]

Заменил, но всеровно ошибка! Там наверное в скобках проблема!

[Serge_Bliznykov]

1) ошибка у Вас в том, что Вы путаете вещественный и целый тип данных

2) вообще не могу понять ваш код! Каково условие исходной задачи?!