создание модуля turbo pascal

[iSkulll]

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

uses crt;
function Step(x,y:real):real;
begin
if x=0 then Step:=0
else if x>0 then Step:=exp(ln(x)*y)
else Step:=-exp(ln(abs(x))*y);
end;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
write('y=');
readln(y);
write('x^y=',Step(x,y):0:3);
readln

[GetMax]

Вот модуль:

Unit Stepen;
Interface
  Function Step(X,Y:Byte):Real;
Implementation
  Function Step;
  Begin
    If x = 0 then Step:=0
    Else
    If x > 0 then Step:=exp(Ln(x)*y)
    Else
                      Step:=-exp(Ln(abs(x))*y)
  End;
End.

А вот так его надо вызвать в основной программе

Uses CRT, Stepen;
Var
  x,y:Byte;
Begin
  ClrScr;
  Readln(x);
  Readln(y);
  Writeln(Step(x,y):3:0);
  Readln
End.