Вместо
for n:=1 to 5 do //Для n от 1 до 5 выводим значения суммы ряда
Можно написать
for n:=fn(x, 0.01) to 5 do
То есть начинаем выводить значения s, при погрешности менее 0.01 до тех пор, пока n не дойдет до 5.