ошибка в программе

[Витя007]

помогите исправить пожалуйста)) задание:заданного с консоли значения n определить сумму числового ряда:454.jpg Для

Результаты вычислений вывести в виде таблицы с заголовком. Вычисленные значения ряда сравнить со значением функции f.
Накопление суммы производим по рекуррентной формуле – каждая последующая сумма вычисляется через предыдущую

[Витя007]

PROGRAM Vitjok_part1;
USES CRT;
const pi=3.14159265358;
VAR
 sum, f : real;
 n, i : integer;
BEGIN
 writeln('Laboratornaja rabota #4');
 writeln('Variant #3');
 writeln('IS-12-2');
 writeln('Kapustin Victor');
 writeln;
  write('n = ');
  readln(n);
  writeln;
  writeln(' n sum ');
  writeln('_______________');
  f:=0.5-pi/8;
  sum:=0;
 for i:=1 to n do
  begin
   sum:=sum+(1/((4*n-1)*(4*n+1)));
   writeln(' ', i, ' ', sum:0:5);
  end;
 writeln('_______________');
 writeln(' f = ', f:0:5);
 readln;
END.

ошибка задания рекурентной формулы, не знаю как правильно задать