Перевод кода из Pascal в Object Pascal

[zemskov77]

Помогите перевести код

function Stepen(a:real; p: integer):real;
var
i: integer;
temp: real;
begin
temp:= 1;
for i:= 1 to p do temp:= temp * a;
Stepen:= temp;
end;

function Fact(n: integer):integer;
var
i, temp: integer;
begin
temp:= 1;
for i:= 1 to n do temp:= temp * i;
Fact:= temp;
end;

var
i: integer;
rez, eps, temp, x: real;

begin
writeln('Vvedite tochnost');
readln(eps); {ввод точности}
writeln('Vvedite x');
readln(x); {ввод x}

rez:= 1; i:= 1;
temp:= eps + 2;
while temp > eps/2 do
begin
if Odd(i) then rez:= rez - Stepen(x, 2*i) / Fact(2*i)
else rez:= rez + Stepen(x, 2*i) / Fact(2*i);
temp:= Stepen(x, 2*i) / Fact(2*i);
i:= i+1;
end;
writeln('chislo prohodov = ', i-1:5); {число проходов}
writeln('Rezultat = ', rez:10:6); {результат}
readln;
end.

[UnD)eaD)Snake]

если используете в консольном приложении, наверху дописать
{$APPTYPE CONSOLE}