Из элементов исходного массива сформировать новый массив по заданному правилу - Free Pascal (472)

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

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

Решение задачи: «Из элементов исходного массива сформировать новый массив по заданному правилу»

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

function counter(x: real): real;
var
  i: byte;
  res: real;
begin
  res := 0;
  for i := 1 to 12 do
    res := res + i / (x + i);
  counter := res
end;
 
var
  x, y: array[1..10] of real;
  i: byte;
  
begin
  randomize;
  writeln('Massiv X:');
  for i := 1 to 10 do begin
    x[i] := 10 * random;
    write(' ', x[i]:0:3);
    y[i] := counter(x[i])
  end;
  writeln;
  writeln('Massiv Y:');
  for i := 1 to 10 do
    write(' ', y[i]:0:3);
  readln
end.

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

В данном коде реализована функция counter, которая принимает на вход число x и возвращает результат вычисления суммы ряда от i до 12, поделённого на (x + i). Далее, в основной части программы, объявлены два массива x и y, каждый из которых содержит 10 элементов типа real. Затем, с помощью цикла for и функции randomize, в каждый элемент массива x присваивается случайное число, затем с помощью функции write выводится на экран в формате 10.000. Далее, с помощью функции counter для каждого элемента массива x вычисляется значение функции, которое затем присваивается соответствующему элементу массива y. После этого, с помощью функции write выводится на экран второй массив в формате 10.000. В конце программы, с помощью функции readln программа ожидает ввода пользователя для завершения работы.