Переделать в Delphi программу - Turbo Pascal

Формулировка задачи:

Есть программа на паскале, нужно перенести в делфи.

program ddm;
uses crt;
const e=0.0001;
var
  i:integer;
  x,y,s:real;
  z:real;
  
  function fact(n : integer) : longint;
  begin
       if n <= 1 then fact := 1
                      else fact := n * fact(n - 1);
  end;
begin
     write('Введите  x: ');
     readln(x);
     i:=1; s:=1;
     y:=((s)*power(x,2*i-1)*(2*i+x))/fact(2*i);
     while y>e do begin
                       y:=((s)*power(x,2*i-1)*(2*i+x))/fact(2*i);
                       writeln(y);
                       z:=z+y;
                       s:=s*(-1);
                       inc(i);
     end;
writeln('Значение суммы ряда ',z);
end.

Решение задачи: «Переделать в Delphi программу»

Листинг программы

program Project2;
 
{$APPTYPE CONSOLE}
 
uses SysUtils,Math;
const e=0.0001;
var
  i:integer;
  x,y,s:real;
  z:real;
  
  function fact(n : integer) : longint;
  begin
       if n <= 1 then fact := 1
                      else fact := n * fact(n - 1);
  end;
begin
     write('Введите x: ');
     readln(x);
     i:=1; s:=1;
     y:=((s)*power(x,2*i-1)*(2*i+x))/fact(2*i);
     while y>e do begin
                       y:=((s)*power(x,2*i-1)*(2*i+x))/fact(2*i);
                       writeln(y);
                       z:=z+y;
                       s:=s*(-1);
                       inc(i);
     end;
writeln('Значение суммы ряда ',z);
readln;
end.

Объяснение кода листинга программы

Программа использует библиотеки SysUtils и Math.
Константа e равна 0.0001.
Переменные i, x, y, z объявлены.
Функция fact(n:integer) возвращает факториал числа n.
Ввод значения переменной x осуществляется с помощью функции readln.
Инициализация переменных i и s равна 1.
Вычисление значения y с использованием формулы y=(spower(x,2i-1)(2i+x))/fact(2*i).
Вычисление суммы ряда z путем суммирования значений y.
Вывод значения суммы ряда z с помощью функции writeln.
Ожидание ввода с помощью функции readln.