Заменить каждый элемент массива средним арифметическим всех предшествующих ему элементов. Число элементов N >=100. Итоговый массив записывается в файл с контролем на экране монитора — Pascal(Паскаль)

program dfh;

var
  A, B: array [1 .. 100] of real;
  i, n: integer;
  f: text;

function sr(n: integer): real;
var
  i: integer;
  sum: real;
begin
  sum := 0;
  for i := 1 to n - 1 do
    sum := sum + A[i];
  sr := (sum) / (n - 1);
end;

begin
  write('Vvedite razmer massiva  A: ');
  readln(n);

  for i := 1 to n do
  begin
    write('A[', i, ']=');
    readln(A[i]);
  end;

  write('Vot vvedennyy vami massiv A:');
  for i := 1 to n do
    write(A[i]:0:2, '  ');
  writeln;
  { *** }
  B[1] := A[1];
  for i := 2 to n do
    B[i] := sr(i);
  { *** }
  write('Vot preobrazovanyi massiv A:');
  for i := 1 to n do
    write(B[i]:0:2, '  ');

  assign(f, 'rezult.txt');
  rewrite(f);
  for i := 1 to n do
    writeln(f, B[i]:0:2);

  close(f);
  readln;

end.