Вычислить сумму и среднее арифметическое вводимой последовательности чисел

var
 F    : array[1..100] of integer;    //заполнишь сама
 i     : integer;  
max : integer;                          // размерность массива не больше 100
 sum: integer;                          //сумма всех чисел
 sr   : integer;                          //среднее арифметическое
begin
sum:=0;
 for i:=0 to max do
   sum:=sum+ f[i];
sr:=sum/max;

var
a:array[1..25] of integer;
i:integer;
max:integer;
sum:integer;
sr:real;
begin
writeln('vvedite');
readln(a[i]);
begin
sum:=0;
for i:=0 to max do
sum:=sum+ a[i];
sr:=sum/max;
writeln('sum=',sum);
writeln('sr=',sr:3:2);
readln;
 
end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

var
Arr: array of integer;
n,i:integer;
sum:integer;
mean:double;
begin
write('Set array: ');
readln(n);
setlength(Arr,n);
sum:=0;
for i:=0 to n do begin 
write('Element #'+i+' - ');
readln(arr[i]);
sum:=sum+arr[i];
end;
mean:=sum/2;
writeln('Sum ='+sum+' Mean ='+mean);
end;

mean:=sum/2;

mean:=sum/n;

 write('Element #'+i+' - ');

 writeln('Sum ='+sum+' Mean ='+mean);

 write('Element #'+inttostr(i)+' - '); 
 writeln('Sum ='+inttostr(sum)+' Mean ='+floattostr(mean));