Задача по одномерным массивам(паскаль)

[pupik100]

добрый вечер, прошу помочь мне в решении одной задачи..
"ввести одномерный массив на основе него создать новый массив каждый элемент которого рассчитывается как среднее арифметическое справа(в первом массиве) текущего(во втором) элемента в первом массиве"

пожалуйста укажите где неверно

program ex1;
var
A:array[1..100] of integer;
B:array[1..100] of real;
N,i,z,AB:integer;
L,SRA:real;
begin
for i:=1 to N do
begin
write('A[',i,']=');readln(A[i]);
end;
z:=0;
AB:=1;
repeat
L:=0;
SRA:=0;
z:=z+1;
begin
for i:=z to N do
begin
SRA:=SRA+A[i+1];
L:=L+1;
if (i+1)=N then
i:=N;
end;
SRA:=SRA/L;
B[AB]:=SRA;
AB:=AB+1;
until z<>(N-1)
for AB:=1 to N do
writeln ('B=', B[AB]);
end.

[val_nnm]

Если я правильно понял задание то тебе нужно чтото в таком духе

program ex1;
var
A:array[1..100] of integer;
B:array[1..100] of real;
N,i,AB:integer;
SRA:real;
begin
  write('N=');ReadLN(N);
  for i:=1 to N do
  begin
    write('A[',i,']=');readln(A[i]);
  end;
  for AB := 1 to N-1 do Begin
    SRA := 0;
    for i := AB+1 to N do Begin
      SRA := SRA + A[i];
    End;
    B[AB] := SRA/(N-AB);
  End;
  for AB:=1 to N-1 do
    writeln ('B=', B[AB]:5:2);
end.

[pupik100]

Сообщение от val_nnm

Если я правильно понял задание то тебе нужно чтото в таком духе

program ex1;
var
A:array[1..100] of integer;
B:array[1..100] of real;
N,i,AB:integer;
SRA:real;
begin
  write('N=');ReadLN(N);
  for i:=1 to N do
  begin
    write('A[',i,']=');readln(A[i]);
  end;
  for AB := 1 to N-1 do Begin
    SRA := 0;
    for i := AB+1 to N do Begin
      SRA := SRA + A[i];
    End;
    B[AB] := SRA/(N-AB);
  End;
  for AB:=1 to N-1 do
    writeln ('B=', B[AB]:5:2);
end.

спасибо огромное, я еще внес дополнение сюда ввел c

c:=0
if с=o then
c:=N-AB
c:=1

вот такое в соответствующих местах =)