[Bargest]

Пройти по массиву двумя циклами, если есть совпадения - сложить.

Код:

i:=0;
while i<cht-1 do
begin
 j:=i+1;
 while j<cht do
 begin
  if crdt[i,1]=crdt[j,1] then
  begin
    crdt[i,2]:=crdt[i,2]+crdt[j,2]
    for k:=j to cht-1 do
    begin
      crdt[k,1]:=crdt[k+1,1];
      crdt[k,2]:=crdt[k+1,2];
    end;
    dec(cht);
    dec(j);
  end;
  inc(j);
 end;
 inc(i);
end;

А дальше рисуешь график по массиву значений через LineTo.

Offtop: Представляю, какая жуть получится...