Дан массив X из 10 элементов. Сформировать массив У, в котором yi =1/(xi+1) +2/(xi+2)+3/(xi+3)+ … + 12/(xi+12) . Использовать подпрограмму для вычисления одного yi — Pascal(Паскаль)

uses crt;
const n=10;
function F(a:real;k:byte):real;
begin
F:=1/(a+k);
end;
var x,y:array[1..n]  of  real;
    i:byte;
begin
clrscr;
randomize;
writeln('Массив Х:');
for i:=1 to n do
 begin
  x[i]:=10*random;
  write(x[i]:0:2,' ');
 end;
writeln;
writeln('Массив Y:');
for i:=1 to n do
 begin
  y[i]:=F(x[i],i);
  write(y[i]:0:2,' ');
 end;
readln
end.