перевод программы из C++ в Pascal

[Vaas]

#include <iostream>
#include <cmath>
using namespace std;

long long factorial(unsigned long n)
{
if (n == 0 || n == 1) return 1;
long long f = 1;
while (n > 1)
f *= n--;
return f;
}

int main()
{
setlocale(LC_ALL, "");
int n;
double x;
cout << "Введите количество суммируемых членов: "; cin >> n;
cout << "Введите x: "; cin >> x;
double sum = 1;
for (int i = 2, k = 1; k < n; i *= 2, k++)
{
sum += pow(x, i)/factorial(i)*1.;
}
cout << "Сумма " << n << " членов ряда равна: " << sum << endl; 
return 0;
}

[Stilet]

function factorial(n:integer):integer
var f:integer;
begin
 if (n = 0) or (n = 1) begin factorial:=1;exit;end;
 f := 1;
 while (n > 1) do begin f:=f*n;dec(n);end;
 factorial:=f;
end;

var
n,i:nteger;
sum,x:Double;

begin
write('Введите количество суммируемых членов: ');readln(n);
write('Введите x: ');readln(x);
sum := 1; i:=2;
for k := 1 to n do begin  
 sum =sum+ exp(i*ln(x))/factorial(i);
 i :=i*2;
end;
write('Сумма ',n,' членов ряда равна: ',sum); 
end;