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

uses crt;
const
  n = 10;
var
  i,a,sum: integer;
  mas:array [0..n] of integer;
  
BEGIN
  i:=-1;
  sum:=0;
  srz:=0;
  randomize;
  write('Massiv: ');
  repeat
    a:=random(100)+1;
    if (a)mod(5)=0 then
      begin
        inc(i);
        mas[i]:=a;
        sum:=sum+a;
        write(a:3);
      end;
  until i=n;
  writeln;
  writeln('summa = ',sum);
  writeln('srednee znachenie = ',sum/(n+1));
END.

uses crt;
var
  i,max: integer;
  s: string;
  mas: array [1..10] of integer;
  
BEGIN
  Randomize;
  write('Massiv:');
  for i:=1 to 10 do
    begin
      mas[i]:=Random(11)+5;
      write(mas[i]:3);
    end;
  writeln;
    
  max:=mas[1];
  for i:=2 to 10 do
    if mas[i]>max then
      max:=mas[i];
      
  write('Maksimalnoe chislo: ',max);
  writeln;
  
  max:=0;
  for i:=1 to 10 do
    if (mas[i]>max) and ((mas[i])mod(7)=0) then
      max:=mas[i];
  if max<>0 then
    write('Maksimalnoe chislo kratnoe 7: ',max)
  else if max=0 then
    write('Net chisel kratnih 7');
 
  writeln;
 
  max:=0;
  for i:=1 to 10 do
    begin
      Str(mas[i],s);
      if s[Length(s)]='3' then
        inc(max); {здесь переменная max используется для подсчета}
    end;
  write('Kolichestvo chisel okanchivaushihsya cifroi 3: ',max);
END.