Построить массив значений функции, для всех значений функции

Program ex3;
uses CRT;
var n:integer; 
Y: array [-5..15] of real; 
P,min: real; 
k,j,i,nmin: integer; 
function F(x: real): real;
begin
if x<=0 then F:=abs(sin((2*x)-1.5)+3*sin(sqr(x)))+2.38 else F:=exp(2*x)-exp(x)+x;
if (x>0) and (x<10) then F:=abs((cos(sqr(x))-0.5*abs(sin((3*x)-4)))-4.44;
end;
begin
clrscr;
write('Введите кол-во членов последовательности n');
readln(n);
writeln( 'x   Y(x)');
i:=-5;
P:=1;
for k:=i to n do
begin
Y[k]:=F(k);
Writeln(k:5,Y[k]:5:2);
if (Y[k]>1) and (Y[k]<3.1) then
P:=P*Y[k];
end;
min:=y[k]; nmin:=k;for j:=k+1 to n do
if y[j]<min then begin
min:=y[j]; nmin:=j;
writeln(x[j];
end;
writeln('Произведение Р=',P:5:2);
readln;
end.

if x<=0 then F:=abs(sin((2*x)-1.5)+3*sin(sqr(x)))+2.38 else F:=exp(2*x)-exp(x)+x;
if (x>0) and (x<10) then F:=abs(cos(sqr(x))-0.5*abs(sin((3*x)-4)))-4.44;

Program ex3;
uses CRT;
function F(x: real): real;
begin
if x<=0 then F:=abs(sin(2*x-1.5)+3*sin(sqr(x)))+2.38
else if (x>0) and (x<=10) then F:=abs((cos(sqr(x))-0.5*abs(sin(3*x)-4)))-4.44
else F:=exp(2*x)-exp(x)+x
end;
var n:integer;
    Y: array [1..25] of real;
    a,b,x,P,min,xmin: real;
    k,i: integer;
 
begin
clrscr;
a:=-5;
b:=12;
k:=0;
P:=1;
min:=F(a);
xmin:=a;
x:=a;
writeln('--------------');
writeln('| x  |  Y(x) |');
writeln('--------------');
while x<=b+0.5 do
 begin
  writeln('|',x:3:0,' |',F(x):6:2,' |');
  if F(x)<min then
   begin
    min:=F(x);
    xmin:=x
   end;
  if (F(x)>=1)and(F(x)<=3.1) then
   begin
    P:=P*F(x);
    k:=k+1;
    Y[k]:=F(x);
   end;
  x:=x+1
 end;
writeln('Минимальное значение=',min:0:2,' при х=',xmin:0:0);
writeln('Массив Y');
for i:=1 to k do
write(Y[i]:5:2);
writeln;
write('Произведение Р=',P:0:2);
readln;
end.