Найти наименьшее значение функции y= sin(x) / (1+x) и значение аргумента, при котором оно получено

function F(x:real):real;
begin
F:=sin(x)/(1+x);
end;
var xn,xk,x,dx,y,ymn,xmn,z,t:real;
    i:byte;
begin
{нахождение минимума}
xn:=0;
xk:=10;
dx:=0.1;
xmn:=xn;
ymn:=F(xmn);
x:=xn;
while x<=xk+0.0001 do
 begin
  y:=F(x);
  if y<ymn then
   begin
    ymn:=y;
    xmn:=x;
   end;
  x:=x+dx;
 end;
writeln('Минимальное значение функции=',ymn:0:2,'  при х=',xmn:0:2);
{нахождение суммы}
z:=1;
t:=1;
for i:=1 to 10 do
 begin
  t:=t*xmn/i;
  z:=z+t;
 end;
write('Z=',z:0:2);
readln
end.

t:textfile;
AssignFile('t,t.txt');//Связывание файла
rewrite(t);//открытие на запсиь
Whlie not eof(t) do begin
write(t,'Минимальное значение функции=',ymn:0:2,'  при х=',xmn:0:2);
write(t,Z);
end;
Close(t);

uses crt;
function F(x:real):real;
begin
F:=sin(x)/(1+x);
end;
var xn,xk,dx,ymn,xmn,z,t:real;
    x,y:array[1..150] of real;
    g:text;
    n,i:integer;
begin
clrscr;
assign(g,'file1.txt');
rewrite(g);
{нахождение минимума}
x[1]:=0;
y[1]:=F(x[1]);
xk:=10;
dx:=0.1;
xmn:=x[1];
ymn:=F(xmn);
n:=1;
while x[n]<xk do
 begin
  n:=n+1;
  x[n]:=x[n-1]+dx;
  y[n]:=F(x[n]);
  writeln(g,x[n]:0:1,' ',y[n]:0:2);
  if y[n]<ymn then
   begin
    ymn:=y[n];
    xmn:=x[n];
   end;
 end;
writeln('Минимальное значение функции=',ymn:0:2,'  при х=',xmn:0:2);
{нахождение суммы}
z:=1;
t:=1;
for i:=1 to 10 do
 begin
  t:=t*xmn/i;
  z:=z+t;
 end;
writeln('Z=',z:0:2);
write('Файл для построения графика записан, его имя file1');
close(g);
readln
end.