Вычислить значение массива B по заданной формуле ( Delphi )

[Fatalita]

program n_319;

{$APPTYPE CONSOLE}

const
	Amax = 24;
	Bmax = 10;
var
	A: Array [1..Amax] of Integer;
	B: Array [1..Bmax] of Integer;
	i, j: Integer;

procedure DoInput;
begin
	for i := 1 to Amax do
	begin
		write('A[', i, ']= ');
		read(A[i]);
	end;
end;

procedure CalculateResult;
var
	sum: real;
begin
	for i := 1 to Bmax do
	begin
		sum := 0;
		for j := 1 to Amax do
			sum := sum + exp(i*ln(A[i]));
	end;
end;

procedure DoOutput;
begin
	writeln;
	for i := 1 to Bmax do
		writeln('B[', i, ']: ', B[i]);
end;

begin
	DoInput;
	CalculateResult;
	DoOutput;

	readln;
  Readln;
end.

Dano a1,...,a24; b1,...,b10
Formula: b1=a1+a2+...+a24; b2=a1^2+a2^2+...+a24^2; .... b10=a1^10+a2^10+...+a24^10

V chem oshibka?



___________
1) Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Fatalita]

Это Делфи.

[WorldMaster]

Тема - кандидат на закрытие.

[Serge_Bliznykov]

procedure CalculateResult;
var
  sum: real;
  i, j : integer;
begin
	for i := 1 to Bmax do
	begin
	     sum := 0;
	     for j := 1 to Amax do
	        sum := sum + exp(i*ln(A[i]));
                  B[i] := round( sum ) ;
	end;
end;

и ещё, в каждую функцию ОЧЕНЬ рекомендую добавить в описание переменных те переменные, которые вы используете как переменные цикла.

procedure DoInput;
var i: integer;
begin
...

procedure CalculateResult;
var
  ....
  i, j : integer;
begin
....

procedure DoOutput;
var i: integer;