Рассчет ф-ции за счет рекурсии(Delphi)?

[Npwas]

Поясните в чем ошибка!!! Никак не могу понять этот метод, пока что для меня трудно представим!!! Суть задачи: подсчет
Pn=A0+x(A1+x(A2+..x(An-1+xAn)..)!!!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 const n=4;
 var
   a:array [0..n] of integer=(5, 4, 3, 2, 1);
   x:integer=2;
 function pol(j:integer):real;
  begin
   if j=n then
    pol:=a[j]
   else
    pol:=a[j]+x*pol(j+1);
  end;

  begin
   Writeln('P5 = ', pol(0):4:0);
   Readln;
  end.

[GetMax]

Как то так вроде

function pol(j:integer):integer;
  begin
   if j=0 then
    pol:=a[j]
   else
    pol:=a[j]+x*pol(j-1);
  end;

[Npwas]

Все разобрался, прост с 1-ва не понял как оно считает!!!
Как я понял, то так!!!
Pol:=a[0]+x*Pol(0+1); j=0
Pol:=a[o]+x*(a[1]+x*Pol(1+1)) j=1
...
Pol:=a[o]+x*(a[1]+x*(a[2]..x*(a[j]+x*Pol(j+1))..);