В рекурсивной функции отделять первый элемент от рассматриваемой части

program Lab4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  Windows,
  Math;
 
type mas = array of real;
 
function Proizv (X: mas; const i1, i2: byte): real;
begin
    if (i1=i2) then result := X[i1]-((exp(ln(X[i1])*2))/(1+i1))
    else result := proizv (X, i1, (X[i1]-((exp(ln(X[i1])*2))/(1+i1))) * proizv (X, i1+1, (X[i1+1]-((exp(ln(X[i1+1])*2))/(1+(i1+1))));
end;
 
var
    i: byte;
    p: real;
    X: mas;
    fin, fout: textfile;
 
begin
    setConsoleCP(1251);
    setConsoleOutputCP(1251);
    assignfile(fin, paramstr(1)); reset(fin);
    assignfile(fout, paramstr(2)); rewrite(fout);
 
    i := 0;
    while not eof(fin) do begin
        setlength(X, i+1);
        readln(fin, X[i]);
        inc(i);
    end;
 
    writeln(fout, 'Исходный массив из ', high(X)+1, ' элементов:');
    for i := 0 to high(X) do
        writeln (fout, X[i]:5:2);
 
    i := 0;
    p := proizv(X, i, high(X));
    X:=Nil;
    Writeln (fout, 'Искомое произведение p = ', p:5:3);
    Writeln ('Press ENTER');
    readln;
    CloseFile(fin); CloseFile(fout);
end.