Реализовать метод power() – возведение числа first в степень second

uses crt;
type z=record
       first,second:real
       end;
function power(a:z):real;
begin
if a.second=0 then power:=1
else if a.first=0 then power:=0
else power:=exp(ln(a.first)*a.second)
end;
var a:z;
begin
write('Основание степени=');
read(a.first);
write('Показатель степени=');
read(a.second);
if a.first<0 then write('Недопустимый аргумент функции')
else write('Значение степени=',power(a):0:3)
end.

type TMyclass=class
first:real;
second:integer;
constructor Init(first:real;second:integer);
 
begin
 
end;
 
procedure SetFields(first:real;second:integer);
 
begin
self.first:=first;
self.second:=second;
 
end;
 
procedure display;
write('first=', first);
write('second=', second);
 
end;
 
function power1:real;
begin
result:=power(first,second);
end;
end;
 
var Myclass:TMyclass
m,n:integer;
write('m=', m);
read(m);
write('n=', n);
read(n);
Myclass:TMyclass.units
Myclass:TMyclass.setfilds
 
begin