procedure sum(m,b:arr_type);
var
  i,j,sum:integer;
begin
   sum:=0;
   for i:= low to high-1 do
     begin
       for j:= 1 to i do
        begin
         sum:= m[I]+sum;
        end;
      b[I]:=sum;
     end;
end;
?