Паскаль.Помогите исправить код.

[No name9]

Даны числа x и a. Вычислить значение выражения ((...((x+a)^2+a)^2+...+a)^2+a (всего n скобок).

var a,x,n,i,b,b2:integer;
begin
write('Введите x: ');
read(x);
write('Введите a: ');
read(a);
write('Введите число скобок: ');
read(n);
 b:=sqr(x+a);
for i:= 1 to n do
  b2:=sqr(b+a);
   writeln(b2);
end.

[BDA]

var
  a, x, n, i, b: integer;
begin
  write('Введите x: ');
  read(x);
  write('Введите a: ');
  read(a);
  write('Введите число скобок: ');
  read(n);
  b := x + a;
  for i := 1 to n do
    b := sqr(b) + a;
  writeln(b);
end.

[No name9]

BDA, Спасибо