code:

Function Total(var c,d:array of Double):Tarray;
 var
  i,j,k,z:integer;
  b,g,e:TArray;
begin
  j:=0;
  k:=0;
  z:=0;
  SetLength(b,j+1);
  SetLength(g,j+1);
  b[j]:=1;
for i:=0 to Length(c)-2 do
 begin
  if c[i]=c[i+1] then
    begin
    b[j]:=b[j]+1;
    Inc(z);
    SetLength(e,z);
    e[z-1]:=d[i];
    end
  else
  begin
    Inc(j);
    SetLength(b,j+1);
    b[j]:=1;
    Inc(k);
    SetLength(g,k);
    g[k-1]:=Mean(e);
    z:=0
  end;
     Inc(z);
     SetLength(e,z);
     e[z-1]:=d[i+1];
 end;
      Inc(z);
     SetLength(e,z);
     e[z-1]:=d[i+1];
    Inc(k);
    SetLength(g,k);
    g[k-1]:=Mean(e);
 result:=b;
end;

В ответ на:

---

array of Double

---

code:
const epsilon = 0.0001;
Function Total(c,d:Tarray):Tarray;
var i, j: integer; sum: double;
begin
  j:=0;
  sum:=d[0];
  setlength(c, length(c));setlength(d, length(d));//это надо сделать чтобы не портить исходные массивы
  for i:=1 to length(c)-1do begin
    if abs(c[i]-c[j])<epsilon*abs(c[i]) //именно так следует сравнивать значения типа double
    then begin
      sum:=sum+d[i];
      continue;
    end;
    d[j]:=sum/(i-j);
    inc(j);
    c[j]:=c[i];
  end;
  d[j]:=sum/(length(s)-1-j);
  setlength(c, j+1);
  setlength(d, j+1);
  //что надо вернуть, не понял.
end;