Не понимаю где ошибка

[ВДПУ]

вычислить степень действительного числа а с целым показателем

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

[evg_m]

function step (a,k,s:real):real;

rez:=step(b,c);

число формальных параметров не равно числу фактических.

[IT-man]

если а будет отрицательным ошибка будет)