Дан целочисленный массив , элементы которого неотрицательны. необходимо заполнить таблицу действительных чисел , i-ый элемент которой равен среднему арифметическому первых i элементов массива а

Const Num=100;

type MasInt=array[1..Num] of integer;
    MasReal=array[1..Num] of real;

var A:MasInt;
    B:MasReal;
    i:integer;
    
function Arifm(var A:MasInt; i:integer):real;
var j, sum, k:integer;
begin
sum:=0;
k:=0;
for j:=1 to i do
    begin
    sum:=sum+A[j];
    inc(k);
    end;
Arifm:=sum/k;
end;
    
begin
randomize;
for i:=1 to Num do
begin
A[i]:=random(100);
write(A[i], ' ');
end;
writeln();
for i:=1 to Num do
begin
B[i]:=Arifm(A, i);
write(B[i], ' ');
end;
end.